OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..3428
FORMULA
a(1) = 2, a(2) = 3, for n>=2, a(n+1) = a(n) + sum_{1<=k<n, a(k) does not divide a(n)} a(k).
MATHEMATICA
s={2, 3}; Do[sum=s[[-1]]; Do[If[!Divisible[s[[-1]], s[[j]]], sum=sum+s[[j]] ], {j, k-1}]; AppendTo[s, sum] , {k, 2, 32}]; s (* James C. McMahon, Oct 07 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Franklin T. Adams-Watters, Jun 16 2006
STATUS
approved