|
| |
|
|
A160670
|
|
Primes in A160668 in order of appearance.
|
|
2
| |
|
|
7, 5, 3, 89, 83, 71, 59, 53, 47, 41, 29, 17, 11, 3, 887, 863, 827, 821, 809, 773, 761, 743, 719, 683, 653, 647, 641, 617, 599, 569, 557, 521, 509, 491, 479, 443, 431, 401, 383, 359, 353, 347, 317, 281, 257, 239, 227, 191, 179, 173, 137, 113, 89, 71, 59, 53, 47, 29
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
PROG
| (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
|
|
|
CROSSREFS
| Cf. A160668 A160669
Sequence in context: A019935 A144846 A090289 * A109863 A179177 A021574
Adjacent sequences: A160667 A160668 A160669 * A160671 A160672 A160673
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Enoch Haga (Enokh(AT)comcast.net), May 23 2009
|
| |
|
|
