OFFSET
1,1
LINKS
Ray Chandler, Table of n, a(n) for n = 1..10000 (first 500 terms from Harvey P. Dale)
EXAMPLE
603=3*3*67, 604=2*2*151, 605=5*11*11
2523=3*29*29, 2524=2*2*631, 2525=5*5*101
MATHEMATICA
SequencePosition[Table[If[Sort[FactorInteger[n][[All, 2]]]=={1, 2}, 1, 0], {n, 400000}], {1, 1, 1}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 30 2019 *)
PROG
(Sage) is_A178032 = lambda n: all(sorted(m for p, m in factor(k)) == [1, 2] for k in (n, n+1, n+2)) # D. S. McNeil, Dec 17 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
John L. Drost, Dec 16 2010
EXTENSIONS
Corrected and extended by D. S. McNeil, Dec 16 2010
STATUS
approved