OFFSET
1,1
COMMENTS
Conjecture. lim a(n+1)/a(n)=phi as n goes to infinity (phi=golden ratio).
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 1..1000
EXAMPLE
Let n=6. Since a(4) = 10, a(5) = 12 and g(10) = g(12) = 7, then a(6) = 7 + 7 = 14.
MATHEMATICA
a[1] = 6; a[2] = 8; g[n_] := Module[{tmp, k=1}, While[!PrimeQ[n-(tmp=NextPrime[n, -k])], k++]; tmp]; a[n_] := a[n] = g[a[n-1]] + g[a[n-2]]; Table[a[n], {n, 1, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Mar 16 2013
STATUS
approved