A076155 Omega(n) = Omega(n-1)^3, where Omega(m) (A001222) denotes the number of prime factors of m, counting multiplicity.

2, 3, 896, 960, 1344, 1944, 2160, 2496, 3240, 3264, 3600, 3648, 3712, 3744, 4416, 4536, 4736, 4860, 4928, 5568, 5600, 5616, 5952, 6000, 6240, 6624, 7290, 7344, 7392, 7616, 7808, 7872, 8160, 8208, 8352, 8400, 8512, 8736, 8928, 9024, 9120, 9936

Offset

1,1

Links

Table of n, a(n) for n=1..42.

Example

Omega(896) = 2^3 = Omega(895)^2, so 896 is a term of the sequence.

Mathematica

Omega[n_] := Apply[Plus, Transpose[FactorInteger[n]][[2]]]; l = {2}; Do[ If[Omega[i] == (Omega[i - 1])^3, l = Append[l, i]], {i, 3, 10^4}]; l
Join[{2}, Flatten[Position[Partition[PrimeOmega[Range[10000]], 2, 1], _?(#[[1]]^3==#[[2]]&), 1, Heads->False]]+1] (* Harvey P. Dale, Sep 22 2017 *)

Crossrefs

Sequence in context: A108332 A256115 A066685 * A352537 A136611 A004898

Adjacent sequences: A076152 A076153 A076154 * A076156 A076157 A076158

Keyword

easy,nonn

Author

Joseph L. Pe, Oct 31 2002

Status

approved