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

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

Robert Israel, Table of n, a(n) for n = 0..1000

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

Adjacent sequences: A102851 A102852 A102853 * A102855 A102856 A102857

Keyword

nonn

Author

Robert G. Wilson v, Feb 28 2005

Status

approved