OFFSET
1,1
EXAMPLE
k=3: pp(3)-3 = 8-3 = 5 is prime.
MATHEMATICA
With[{s = {1}~Join~Select[Range[4, 2*10^5], GCD @@ FactorInteger[#][[All, -1]] > 1 &]}, Select[Range@ Length@ s, PrimeQ[s[[#]] - #] &]] (* Michael De Vlieger, Aug 25 2021 *)
PROG
(PARI) lista(nn) = {n = 0; for (pn=1, nn, if (pn==1 || ispower(pn), n++; if (isprime(pn - n), print1(n, ", ")); ); ); } \\ Michel Marcus, Jun 05 2013
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Oct 11 2002
EXTENSIONS
Edited by Georg Fischer, Aug 25 2021
STATUS
approved