A112038 The p values which produce new terms in A112037.

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

Author

Michel Dauchez (mdzdm(AT)yahoo.fr), Nov 28 2005

Keywords

• easy
• nonn

Crossrefs

The p values which do not produce new terms in A112037 are given by A061303. - Ray Chandler, Nov 30 2005

Cf. A112037, A114461.

Programs

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 *)

Extensions

Better description from Jack Brennen, Nov 28 2005

Extended by Ray Chandler and Robert G. Wilson v, Nov 30 2005