|
|
A014260
|
|
Iccanobif numbers: add a(n-1) to reversal of a(n-2).
|
|
28
|
|
|
0, 1, 1, 2, 3, 5, 8, 13, 21, 52, 64, 89, 135, 233, 764, 1096, 1563, 8464, 12115, 16763, 67884, 104645, 153521, 699922, 825273, 1055269, 1427797, 11053298, 19030539, 108265550, 201768641, 257331442, 404198544, 648332296, 1094223700, 1786457546, 1859682447
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
MAPLE
|
R:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||n):
a:= proc(n) option remember; `if`(n<2, n,
a(n-1) +R(a(n-2)))
end:
|
|
MATHEMATICA
|
Clear[ Bif ]; Bif[ 0 ]=0; Bif[ 1 ]=1; Bif[ n_Integer ] := Bif[ n ]=Bif[ n-1 ]+Plus@@(IntegerDigits[ Bif[ n-2 ], 10 ]//(#*Array[ 10^#&, Length[ # ], 0 ])&); Array[ Bif, 40, 0 ]
nxt[{a_, b_}]:={b, IntegerReverse[a]+b}; NestList[nxt, {0, 1}, 40][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 04 2018 *)
|
|
PROG
|
(PARI) lista(nn) = my(v=vector(nn)); v[2]=1; for(n=3, nn, v[n] = v[n-1] + fromdigits(Vecrev(digits(v[n-2])))); v \\ Jinyuan Wang, Aug 01 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|