A093099 -id:A093099 - cp's OEIS frontend

A093100 "Lucas-digits": start with "13", append sum of first 2 digits to the preceding number, drop first digit.

13, 34, 47, 711, 118, 182, 829, 2910, 91011, 101110, 11101, 11012, 10122, 1221, 2213, 2134, 1343, 3434, 4347, 3477, 4777, 77711, 771114, 7111414, 1114148, 1141482, 1414822, 4148225, 1482255, 4822555, 82255512, 225551210, 255512104, 555121047

Offset: 1

Graph
List
Refs
Listen
History
Text
Internal format

Bodo Zinser, Mar 22 2004

nonn
base

There are only 7 primes in the first 1000 terms of this sequence. The first 6 primes are 13, 47, 829, 2213, 77711, and 174111811681183993. The 7th prime, a(920), has 214 digits. - Harvey P. Dale, Aug 04 2014

			a(4): sum of first 2 digits of a(3)=11, append 11 to 47 and get 4711, drop first digit and get 711.

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

Cf. A093086-A093099.

ld[n_]:=Module[{idn=IntegerDigits[n]},FromDigits[Rest[Join[ idn, IntegerDigits[ Total[ Take[idn,2]]]]]]]; NestList[ld,13,40] (* Harvey P. Dale, Aug 04 2014 *)

cp's OEIS Frontend

A093100 "Lucas-digits": start with "13", append sum of first 2 digits to the preceding number, drop first digit.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica