OFFSET
1,1
COMMENTS
A077066(a(n)) = a(n).
FORMULA
a(n) = A049097(n)+1. - Zak Seidov, Aug 15 2006
MATHEMATICA
Select[Prime[Range[200]]+1, SquareFreeQ] (* Harvey P. Dale, Aug 20 2017 *)
PROG
(PARI) isok(n) = issquarefree(n) && isprime(n-1); \\ Michel Marcus, Mar 22 2016
(PARI) lista(nn) = forprime(p=2, nn, if (issquarefree(p+1), print1(p+1, ", "))); \\ Michel Marcus, Mar 22 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 23 2002
STATUS
approved