login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
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,changed

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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 14 20:15 EST 2019. Contains 329130 sequences. (Running on oeis4.)