A114461 Position in A112037 where the n-th prime appears.

1, 2, 3, 5, 4, 7, 10, 16, 6, 8, 22, 12, 9, 14, 20, 11, 41, 26, 19, 35, 21, 23, 13, 15, 28, 37, 38, 39, 53, 17, 32, 18, 45, 33, 56, 49, 68, 40, 92, 24, 25, 52, 27, 43, 123, 44, 87, 98, 177, 100, 29, 30, 63, 31, 67, 69, 88, 71, 54, 34, 73, 36, 57, 76, 77, 252, 80, 118, 85, 121, 165

Offset

1,2

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

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]); Do[ r[n], {n, 260}]; Table[Position[lst, Prime[n]], {n, 71}] // Flatten

Crossrefs

Cf. A112037, A112038.

Sequence in context: A335422 A214870 A347204 * A065578 A254104 A126918

Adjacent sequences: A114458 A114459 A114460 * A114462 A114463 A114464

Keyword

nonn

Author

Robert G. Wilson v, Nov 29 2005

Status

approved