OFFSET
1,5
COMMENTS
The first occurrence where the sequence has k similar terms: 4, 0, 13, 45, 857, 523807, 119, ...
MATHEMATICA
Select[ Range@225, Plus @@ Last /@ FactorInteger@# == 2 &] - Select[ Range[2, 102], !PrimeQ[ # ] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 31 2005
EXTENSIONS
Definition corrected by Juri-Stepan Gerasimov, May 17 2010
STATUS
approved