OFFSET
1,1
COMMENTS
This sequence is infinite and its relative density in the sequence of the primes is equal to 1 - 2 * Product_{p prime} (1-1/(p*(p-1))) = 1 - 2 * A005596 = 0.252088... - Amiram Eldar, Feb 27 2021
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[2, 300]], !SquareFreeQ[#-2]&] (* Harvey P. Dale, Nov 14 2012 *)
PROG
(PARI) isok(p) = (p>2) && isprime(p) && !issquarefree(p-2); \\ Michel Marcus, May 14 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved