login
A114461
Position in A112037 where the n-th prime appears.
3
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
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
Sequence in context: A335422 A214870 A347204 * A065578 A254104 A126918
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 29 2005
STATUS
approved