OFFSET
1,1
COMMENTS
Semiprimes in arithmetic progression. All terms are odd, see also A056809.
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