|
Search: id:A005106
|
|
|
| A005106 |
|
Class 2+ primes.
(Formerly M4889)
|
|
+0
18
|
|
| 13, 19, 29, 41, 43, 59, 61, 67, 79, 83, 89, 97, 101, 109, 131, 137, 139, 149, 167, 179, 197, 199, 211, 223, 229, 239, 241, 251, 263, 269, 271, 281, 283, 293, 307, 317, 349, 359, 367, 373, 419, 433, 439, 449, 461, 479, 499, 503, 509, 557, 563, 577, 587, 593
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
REFERENCES
|
R. K. Guy, Unsolved Problems in Number Theory, A18.
|
|
MAPLE
|
For Maple program see Mathar link.
|
|
MATHEMATICA
|
PrimeFactors[n_Integer] := Flatten[ Table[ #[[1]], {1}] & /@ FactorInteger[n]]; f[n_Integer] := Block[{m = n}, If[m == 0, m = 1, While[ IntegerQ[m/2], m /= 2]; While[ IntegerQ[m/3], m /= 3]]; Apply[Times, PrimeFactors[m] + 1]]; ClassPlusNbr[n_] := Length[ NestWhileList[f, n, UnsameQ, All]] - 3; Prime[ Select[ Range[120], ClassPlusNbr[ Prime[ # ]] == 2 &]]
|
|
CROSSREFS
|
Cf. A005113, A005105, A005107, A005108.
Adjacent sequences: A005103 A005104 A005105 this_sequence A005107 A005108 A005109
Sequence in context: A073620 A089391 A038954 this_sequence A050265 A120140 A101849
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
njas, Simon Plouffe (plouffe(AT)math.uqam.ca)
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 20 2003
|
|
|
Search completed in 0.002 seconds
|
