OFFSET
0,7
EXAMPLE
The distinct primes that divide 12 are 2 and 3. So a(12) = a(12-2) + a(12-3) = a(10) + a(9) = 3 + 2 = 5.
MATHEMATICA
a = {1, 1}; For[n = 2, n < 80, n++, s = 0; For[i = 1, i < Length[Divisors[n]] + 1, i++, If[PrimeQ[Divisors[n][[i]]], s = s + a[[n - Divisors[n][[i]] + 1]]]]; AppendTo[a, s]]; a (* Stefan Steinerberger, Aug 30 2008 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jan 13 2008
EXTENSIONS
More terms from Stefan Steinerberger, Aug 30 2008
STATUS
approved