OFFSET
1,1
COMMENTS
Semiprimes in arithmetic progression. All terms are odd, see also A056809.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
R:= NULL:
state:= 0: count:= 0:
for n from 1 by 2 while count < 50 do
if numtheory:-bigomega(n) = 2 then state:= state+1
else state:= 0
fi;
if state >= 5 then R:= R, n - 8; count:= count+1; fi
od:
R; # Robert Israel, Sep 11 2025
MATHEMATICA
PrimeFactorExponentsAdded[n_] := Plus @@ Flatten[Table[ #[[2]], {1}] & /@ FactorInteger[n]]; Select[ Range[ 12054], PrimeFactorExponentsAdded[ # ] == PrimeFactorExponentsAdded[ # + 2] == PrimeFactorExponentsAdded[ # + 4] == PrimeFactorExponentsAdded[ # + 6] == PrimeFactorExponentsAdded[ # + 8] == 2 &] (* Robert G. Wilson v, Feb 24 2004 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Feb 22 2004
STATUS
approved