login
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
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..i-1)]));
if v <= N and B[v] = 0 then
B[v]:= p; count:= count+1;
fi
od:
convert(B, list); # Robert Israel, Oct 23 2020
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: A293173 A079936 A363750 * A156009 A215275 A164620
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 28 2005
STATUS
approved