|
%I #7 Jan 31 2017 18:25:43
%S 1,1,1,3,5,9,71,58,831,69,859,9571,99401,138901,378742,440716,953859,
%T 7133771,6438258,88852541,75424201,517071,318397461,337833493,
%U 520847656,168707711,688837201,8652938731,3463840159,19061650821,11792487113,39087971343,77290124996,254385071821,61861367073,98365635393,782470216414,88812796249,650846846969,2369589212251,9645588429013,33288442066621,58870791630354,889521228408101
%N a(1)=a(2)=a(3)=1. a(n) = reverseDigits(a(n-1)+a(n-2)+a(n-3)) for n>=4.
%H Harvey P. Dale, <a href="/A163550/b163550.txt">Table of n, a(n) for n = 1..1000</a>
%t 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 *)
%K nonn,base
%O 1,4
%A _Siddharth Kothari_, Jul 30 2009
%E Changed the title to make it more precise. Fixed an incorrect entry. Added more entries _Dmitry Kamenetsky_, Aug 02 2009
|
