|
| |
|
|
A134100
|
|
Primes following odd numbers not preceded by primes.
|
|
4
| |
|
|
29, 37, 53, 59, 67, 79, 89, 97, 127, 137, 149, 157, 163, 173, 179, 191, 211, 223, 239, 251, 257, 263, 269, 277, 293, 307, 331, 337, 347, 359, 367, 373, 379, 389, 397, 409, 419, 431, 439, 449, 457, 479, 487, 499, 509, 521, 541, 547, 557, 563, 569, 577, 587
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| a(1)=29 because 29 follows the odd nonprime 27 which in turn follows the odd nonprime 25
|
|
|
MATHEMATICA
| Select[Range[5, 1000, 2], PrimeQ[#]&&!PrimeQ[#-2]&&!PrimeQ[#-4]&] (* From Vladimir Joseph Stephan Orlovsky, Feb 03 2012 *)
|
|
|
PROG
| UBASIC: 10 'primes using counters 20 N=3:print "2 "; :print "3 "; :C=2 30 A=3:S=sqrt(N) 40 B=N\A 50 if B*A=N then 55 55 Q=N-2:R=N+2: if Q<>prmdiv(Q) and N<>prmdiv(N) and R=prmdiv(R) then print Q; N; R; "-"; :stop:else N=N+2:goto 30 60 A=A+2 70 if A<=sqrt(N) then 40:stop 81 C=C+1 100 N=N+2:goto 30
|
|
|
CROSSREFS
| Cf. A134099 A083370 A124582 A007510 A134101.
Sequence in context: A049746 A097997 A177873 * A060769 A031925 A107134
Adjacent sequences: A134097 A134098 A134099 * A134101 A134102 A134103
|
|
|
KEYWORD
| easy,nonn,changed
|
|
|
AUTHOR
| Enoch Haga (Enokh(AT)comcast.net), Oct 08 2007
|
| |
|
|
