OFFSET
1,1
COMMENTS
Digital sum analog in base 10 of the Lucas numbers A000032 (starting at 3).
The sequence is periodic from n=1 with period 24.
LINKS
Index entries for linear recurrences with constant coefficients, signature (1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1).
MATHEMATICA
nxt[{a_, b_}]:={b, Total[Flatten[IntegerDigits/@{a, b}]]}; NestList[nxt, {3, 4}, 80][[;; , 1]] (* or *) PadRight[{}, 80, {3, 4, 7, 11, 9, 11, 11, 4, 6, 10, 7, 8, 15, 14, 11, 7, 9, 16, 16, 14, 12, 8, 11, 10}] (* Harvey P. Dale, Jun 14 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Enrique Navarrete, May 15 2017
STATUS
approved