|
| |
|
|
A102854
|
|
Prime at which n appears for the first time in A102350.
|
|
1
| |
|
|
2, 5, 13, 17, 37, 47, 73, 89, 113, 137, 193, 233, 293, 277, 373, 359, 401, 499, 467, 613, 577, 743, 877, 857, 701, 991, 863, 1223, 1153, 1109, 1307, 1571, 1609, 1493, 1637, 2053, 1783, 1889, 1913, 2017, 2221, 2063, 2161, 2381, 2467, 2333, 2677, 2719, 2633
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| The least prime which has n prime prime residues.
|
|
|
MATHEMATICA
| f[n_] := Length[ Select[ Mod[ Prime[n], Prime[ Range[n]]], PrimeQ[ # ] &]]; g[n_] := Block[{k = 1}, While[ f[ k] != n, k++ ]; Prime[k]]; Table[ g[n], {n, 0, 48}]
|
|
|
CROSSREFS
| Cf. A102351.
Sequence in context: A087952 A124255 A079936 * A156009 A164620 A156013
Adjacent sequences: A102851 A102852 A102853 * A102855 A102856 A102857
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 28 2005
|
| |
|
|
