A163550 a(1)=a(2)=a(3)=1. a(n) = reverseDigits(a(n-1)+a(n-2)+a(n-3)) for n>=4.

1, 1, 1, 3, 5, 9, 71, 58, 831, 69, 859, 9571, 99401, 138901, 378742, 440716, 953859, 7133771, 6438258, 88852541, 75424201, 517071, 318397461, 337833493, 520847656, 168707711, 688837201, 8652938731, 3463840159, 19061650821, 11792487113, 39087971343, 77290124996, 254385071821, 61861367073, 98365635393, 782470216414, 88812796249, 650846846969, 2369589212251, 9645588429013, 33288442066621, 58870791630354, 889521228408101

Offset

1,4

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

nxt[{a_, b_, c_}]:={b, c, IntegerReverse[a+b+c]}; NestList[nxt, {1, 1, 1}, 50][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 31 2017 *)

Crossrefs

Sequence in context: A124974 A336144 A215440 * A123220 A098339 A121622

Adjacent sequences: A163547 A163548 A163549 * A163551 A163552 A163553

Keyword

nonn,base

Author

Siddharth Kothari, Jul 30 2009

Extensions

Changed the title to make it more precise. Fixed an incorrect entry. Added more entries Dmitry Kamenetsky, Aug 02 2009

Status

approved