1,1

(Other) UBASIC: 10 'recipseq, Enoch Haga, 22 May 2009 20 N=3:print N:C=2 30 A=3:S=sqrt(N) 40 B=N/A 50 if A*B=int(N) then 70 60 A=A+2:if A<S then 40 70 if N=prmdiv(N) then print N; :else 130 80 if alen(N)=1 then print 10^1-N; :P=prmdiv(10^1-N):goto 120 90 if alen(N)=2 then print 10^2-N; :P=prmdiv(10^2-N):goto 120 100 if alen(N)=3 then print 10^3-N; :P=prmdiv(10^3-N):goto 120 110 if alen(N)=4 then print 10^4-N; :P=prmdiv(10^4-N) 120 print P; C:C=C+1:stop 130 N=N+2:S=sqrt(N):goto 40

Cf. A160668 A160669

Sequence in context: A019935 A144846 A090289 this_sequence A109863 A021574 A021061

Adjacent sequences: A160667 A160668 A160669 this_sequence A160671 A160672 A160673

easy,nonn

Enoch Haga (Enokh(AT)comcast.net), May 23 2009