OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
EXAMPLE
omega(18) = 2 = 1 + 1 = omega(17) + omega(16), so 18 belongs to the sequence.
MATHEMATICA
omega[n_] := Length[FactorInteger[n]]; Select[Range[3, 10^3], omega[ # ] == omega[ # - 1] + omega[ # - 2] &]
PROG
(PARI) lista(kmax) = {my(o1 = omega(1), o2 = omega(2), o3); for(k = 3, kmax, o3 = omega(k); if(o3 == o1 + o2, print1(k, ", ")); o1 = o2; o2 = o3); } \\ Amiram Eldar, Sep 18 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Nov 04 2002
STATUS
approved