OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
isA166562 := proc(n) isprime(ithprime(n)-n-1) ; end: for n from 1 to 500 do if isA166562(n) then printf("%d, ", n) ; fi; od: # R. J. Mathar, Oct 17 2009
MATHEMATICA
Select[Range[400], PrimeQ[Prime[#]-#-1]&] (* Harvey P. Dale, Jan 19 2021 *)
PROG
(PARI) n=0; forprime(p=2, 1e4, n++; if(isprime(p-n-1), print1(n", "))) \\ Charles R Greathouse IV, May 25 2011
(Magma) [ n: n in [1..340] | IsPrime(NthPrime(n)-n-1) ]; // Bruno Berselli, May 25 2011
CROSSREFS
KEYWORD
nonn,less,easy
AUTHOR
Juri-Stepan Gerasimov, Oct 17 2009
EXTENSIONS
25 inserted, 39 inserted, 53 removed, etc. by R. J. Mathar, Oct 17 2009
STATUS
approved