OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(3) = 64 is a term because Omega(64) = 6 = Omega(63)+Omega(62)+Omega(61) = 3+2+1 = 6.
MATHEMATICA
l = {4}; Do[If[Omega[n] == Omega[n - 1] + Omega[n - 2] + Omega[n - 3], l = Append[l, n]], {n, 5, 5000}]; l
Transpose[Select[Partition[Range[2100], 4, 1], PrimeOmega[Last[#]] == Total[ PrimeOmega[Take[#, 3]]]&]][[4]] (* Harvey P. Dale, Nov 29 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Oct 30 2002
STATUS
approved