login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

LINKS

Alois P. Heinz, Table of n, a(n) for n = 0..1000

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:

seq(a(n), n=0..50);  # Alois P. Heinz, Jun 18 2014

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 *)

CROSSREFS

Cf. A000045, A001129, A014258, A014259.

See A000045 for the Fibonacci numbers.

Sequence in context: A236212 A293865 A024322 * A177246 A067517 A042339

Adjacent sequences:  A014257 A014258 A014259 * A014261 A014262 A014263

KEYWORD

base,nonn,easy

AUTHOR

N. J. A. Sloane.

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 19 20:40 EDT 2019. Contains 322291 sequences. (Running on oeis4.)