A382814 Number of nachos that the first player gets when playing the "Fibonachos" game starting with n nachos.
1, 1, 2, 3, 3, 4, 3, 4, 4, 5, 6, 8, 8, 9, 9, 9, 10, 10, 12, 8, 9, 9, 10, 11, 11, 12, 11, 12, 12, 13, 14, 16, 21, 21, 22, 22, 22, 23, 23, 25, 25, 26, 26, 26, 25, 26, 26, 27, 28, 28, 29, 28, 33, 21, 22, 22, 23, 24, 24, 25, 24, 25, 25, 26, 27, 29, 29, 30, 30, 30
Offset: 1
Keywords
Links
- Neil J.A. Sloane, Winter Fruits: New Problems from OEIS. (Sequence mentioned from 12:50-19:50.)
- Reddit user Teblefer, Fibonachos
Programs
-
Mathematica
A382814[n_] := Module[{m = n, i = 1, p = True, c = 0}, While[m > 0, If[Fibonacci[i] > m, i = 1]; If[p, c += Fibonacci[i]]; m -= Fibonacci[i]; i += 1; p = Not[p]; ]; c ];
Comments