OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harry J. Smith)
MATHEMATICA
Select[Select[Partition[Prime[Range[400]], 2, 1], #[[2]]-#[[1]]==2&][[All, 1]], !SquareFreeQ[#+1]&] (* Harvey P. Dale, Oct 21 2016 *)
PROG
(PARI) { n=-1; forprime (p=2, 119099, if (isprime(p+2) && !issquarefree(p+1), write("b061368.txt", n++, " ", p)) ) } \\ Harry J. Smith, Jul 22 2009
(Magma) [p:p in PrimesUpTo(2500)| IsPrime(p+2) and not IsSquarefree(p+1)]; // Marius A. Burtea, Jan 16 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 07 2001
EXTENSIONS
Offset corrected by Amiram Eldar, Jan 16 2020
STATUS
approved