|
Search: id:A114461
|
|
| |
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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: A140140 A119474 A029654 this_sequence A065578 A126918 A064620
Adjacent sequences: A114458 A114459 A114460 this_sequence A114462 A114463 A114464
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 29 2005
|
|
|
Search completed in 0.002 seconds
|
