login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A093099 "Fibonacci-digits": start with "11", append sum of first 2 digits to the preceding number, drop first digit. 2
11, 12, 23, 35, 58, 813, 139, 394, 9412, 41213, 12135, 21353, 13533, 35334, 53348, 33488, 34886, 48867, 886712, 8671216, 67121614, 712161413, 121614138, 216141383, 161413833, 614138337, 141383377, 413833775, 138337755, 383377554, 8337755411, 33775541111 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Robert Israel, Table of n, a(n) for n = 1..3793

EXAMPLE

a(6): sum of first 2 digits of a(5)=13, append 13 to 58 and get 5813, drop first digit and get 813.

MAPLE

f:= proc(x) local t, q;

  t:= floor(x/10^(ilog10(x)-1));

  t:= (t mod 10) + floor(t/10);

  t:= t+x*10^(ilog10(t)+1);

  q:= 10^ilog10(t);

  t - floor(t/q)*q

end proc:x:= 11: R:= x:

for n from 2 to 100 do x:= f(x); R:= R, x od:R; # Robert Israel, May 21 2020

# second Maple program:

a:= proc(n) option remember; `if`(n=1, 11, (s->parse(cat(

      s[2..-1], parse(s[1])+parse(s[2]))))(""||(a(n-1))))

    end:

seq(a(n), n=1..35);  # Alois P. Heinz, May 21 2020

MATHEMATICA

fd[n_]:=Module[{idn=IntegerDigits[n]}, FromDigits[Rest[Join[idn, IntegerDigits[Total[Take[idn, 2]]]]]]]

NestList[fd, 11, 30]  (* Harvey P. Dale, Mar 06 2011 *)

CROSSREFS

Cf. A093086-A093092.

Sequence in context: A041246 A042633 A197221 * A092778 A041248 A112063

Adjacent sequences:  A093096 A093097 A093098 * A093100 A093101 A093102

KEYWORD

nonn,base

AUTHOR

Bodo Zinser, Mar 22 2004

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 October 26 22:19 EDT 2021. Contains 348269 sequences. (Running on oeis4.)