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

Author

Robert G. Wilson v, Nov 29 2005

Keywords

• nonn

Links

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

Crossrefs

Cf. A112037, A112038.

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