login
A112038
The p values which produce new terms in A112037.
2
3, 7, 11, 23, 29, 47, 53, 59, 83, 103, 107, 149, 167, 173, 179, 191, 227, 263, 269, 283, 293, 311, 317, 347, 359, 367, 383, 389, 467, 479, 503, 509, 557, 563, 569, 587, 607, 619, 643, 653, 709, 719, 773, 797, 823, 839, 863, 887, 907, 983, 1019, 1087, 1091
OFFSET
1,1
MATHEMATICA
lst = {}; r[n_] := (len = Length@lst; lst = Flatten@ Join[lst, Select[First /@ FactorInteger[Prime@n - 1], ! MemberQ[lst, # ] &]]; If[l < Length@lst, 1, 0]); Prime /@ Select[Range@185, r[ # ] == 1 &] (* Robert G. Wilson v *)
CROSSREFS
The p values which do not produce new terms in A112037 are given by A061303. - Ray Chandler, Nov 30 2005
Sequence in context: A187271 A187106 A111668 * A097452 A086505 A239227
KEYWORD
easy,nonn
AUTHOR
Michel Dauchez (mdzdm(AT)yahoo.fr), Nov 28 2005
EXTENSIONS
Better description from Jack Brennen, Nov 28, 2005
Extended by Ray Chandler and Robert G. Wilson v, Nov 30 2005
STATUS
approved