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,1

Links

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

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

Cf. A112037, A114461.

Sequence in context: A187271 A187106 A111668 * A097452 A086505 A239227

Adjacent sequences: A112035 A112036 A112037 * A112039 A112040 A112041

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