|
|
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, 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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Changed the title to make it more precise. Fixed an incorrect entry. Added more entries Dmitry Kamenetsky, Aug 02 2009
|
|
STATUS
|
approved
|
|
|
|