OFFSET
1,1
COMMENTS
Terms computed by Zak Seidov.
Except 4, all terms == 1 (mod 4). - Robert Israel, May 14 2020
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= n -> numtheory:-bigomega(n)=2 and numtheory:-issqrfree(n+1) and numtheory:-issqrfree(n+2):
select(filter, [4, seq(i, i=5..1000, 4)]); # Robert Israel, May 14 2020
MATHEMATICA
Select[Range[800], PrimeOmega[#]==2&&And@@SquareFreeQ/@(#+{1, 2})&] (* Harvey P. Dale, Oct 30 2013 *)
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Giovanni Teofilatto, Nov 03 2008
STATUS
approved