|
%I #9 Jul 31 2023 10:08:29
%S 3,5,13,17,13,11,17,13,37,67,17,19,37,29,67,149,59,47,37,29,67,43,149,
%T 59,281,47,37,107,67,71,43,149,59,281,47,131,83,107,67,89,71,73,149,
%U 59,281,353,103,131,83,107,67,643,89,71,467,73,149,97,281,79,353,103,131
%N Primes arising in A090544.
%t f[k_] := k + PrimePi[k];
%t g[n_] := NestWhileList[f, f[n], CompositeQ] // Last;
%t a[n_] := g[n+1];
%t Table[a[n], {n, 1, 63}] (* _Jean-François Alcover_, Jul 31 2023 *)
%Y Cf. A090544, A090546.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Dec 09 2003
%E More terms from _Franklin T. Adams-Watters_, Apr 26 2006
|
