A074858 a(n) = a(n-1) + a(n-2) + R(a(n-3)) where a(0) = a(1) = a(2) = 1 and R(n) (A004086) means the reverse of n.

1, 1, 1, 3, 5, 9, 17, 31, 57, 159, 229, 463, 1643, 3028, 5035, 11524, 24762, 41591, 108864, 177197, 305575, 951573, 2048919, 3575995, 6000073, 18774470, 30770296, 53244772, 91462849, 213915324, 333122408, 641864151, 1398505871, 2844591355

Offset

0,4

Links

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

Example

a(9) = 57 + 31 + R(17) = 57 + 31 + 71 = 159.

Maple

R:=proc(n) local nn, nnn: nn:=convert(n, base, 10): add(nn[nops(nn)+1-j]*10^(j-1), j=1..nops(nn)) end: a[0]:=1: a[1]:=1: a[2]:=1: for n from 3 to 34 do a[n]:=a[n-1]+a[n-2]+R(a[n-3]) od: seq(a[n], n=0..34); # Emeric Deutsch, Jul 25 2005

Mathematica

RecurrenceTable[{a[0]==a[1]==a[2]==1, a[n]==a[n-1]+a[n-2]+IntegerReverse[ a[n-3]]}, a, {n, 40}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 05 2020 *)

Crossrefs

Cf. A000213.

Sequence in context: A066173 A114322 A000213 * A074860 A297300 A364543

Adjacent sequences: A074855 A074856 A074857 * A074859 A074860 A074861

Keyword

easy,nonn,base

Author

Felice Russo, Sep 11 2002

Extensions

More terms from Emeric Deutsch, Jul 25 2005

Status

approved