A319050 Primes p such that neither p + 1 nor p + 2 is squarefree.
7, 23, 43, 47, 79, 97, 151, 167, 223, 241, 331, 349, 359, 367, 439, 523, 547, 619, 691, 727, 773, 823, 839, 907, 1051, 1087, 1123, 1223, 1231, 1249, 1303, 1367, 1423, 1447, 1483, 1523, 1571, 1627, 1663, 1699, 1723, 1811, 1823, 1847, 1861, 1879, 1951, 1987, 2131, 2203, 2207
Offset: 1
Keywords
Examples
8 = 2^3 and 9 = 3^2. So 7 is a term. 24 = 2^3*3 and 25 = 5^2. So 23 is a term.
Links
- Seiichi Manyama, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Prime[Range[400]],NoneTrue[#+{1,2},SquareFreeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 05 2019 *) -
PARI
isok(p) = isprime(p) && !issquarefree(p+1) && !issquarefree(p+2); \\ Michel Marcus, Sep 09 2018