A160670 Duplicate of A145985.

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

Offset

1,1

Comments

Previous name was: Primes in A160668 in order of appearance.

Links

Table of n, a(n) for n=1..58.

Prog

(UBASIC)
10 'recipseq, Enoch Haga, May 22 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: A257499 A144846 A090289 * A145985 A109863 A179177

Adjacent sequences: A160667 A160668 A160669 * A160671 A160672 A160673

Keyword

dead

Author

Enoch Haga, May 23 2009

Status

approved