

A102854


Prime at which n appears for the first time in A102350.


2



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;
text;
internal format)



OFFSET

0,1


COMMENTS

The least prime which has n prime prime residues.


LINKS



MAPLE

N:= 100: # for a(0)..a(N)
count:= 0: B:= Array(0..N): p:= 1:
for i from 1 while count < N+1 do
p:= nextprime(p);
P[i]:= p;
v:= nops(select(isprime, [seq(p mod P[j], j=1..i1)]));
if v <= N and B[v] = 0 then
B[v]:= p; count:= count+1;
fi
od:


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



KEYWORD

nonn


AUTHOR



STATUS

approved



