OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Twin Primes.
Wikipedia, Powerful number: Generalization.
EXAMPLE
432 = 2^4 * 3^3 is a term since it is 3-full and 431 and 433 are twin primes.
MATHEMATICA
Select[6*Range[10^6], PrimeQ[# - 1] && PrimeQ[# + 1] && Min[FactorInteger[#][[;; , 2]]] > 2 &]
PROG
(PARI) is(n) = isprime(n-1) && isprime(n+1) && vecmin(factor(n)[, 2]) > 2;
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Feb 23 2023
STATUS
approved
