OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
462 = 2*3*7*11 between 461 and 463 (twin primes);
570 = 2*3*5*19 between 569 and 571;
858 = 2*3*11*13 between 857 and 859;
1230 = 2*3*5*41 between 1229 and 1231.
MATHEMATICA
Select[Range[20000], And @@ PrimeQ[# + {-1, 1}] && FactorInteger[#][[;; , 2]] == {1, 1, 1, 1} &] (* Amiram Eldar, Apr 17 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Apr 17 2022
STATUS
approved
