A048444 Take the first n numbers written in base 13, concatenate them, then convert from base 13 to base 10.

1, 15, 198, 2578, 33519, 435753, 5664796, 73642356, 957350637, 12445558291, 161792257794, 2103299351334, 355457590375459, 60072332773452585, 10152224238713486880, 1715725896342579282736, 289957676481895898782401, 49002847325440406894225787

Offset

1,2

Comments

No primes in the first 31000 terms. - Giovanni Resta, Jun 08 2018

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..200

Example

a(12) = (1)(2)(3)(4)(5)(6)(7)(8)(9)(A)(B)(C) = 123456789ABC_13 = 2103299351334.

Mathematica

If[STARTPOINT==1, n={}, n=Flatten[IntegerDigits[Range[STARTPOINT-1], 13]]]; Table[AppendTo[n, IntegerDigits[w, 13]]; n=Flatten[n]; FromDigits[n, 13], {w, STARTPOINT, ENDPOINT}] (* Dylan Hamilton, Aug 11 2010 *)
f[n_]:= FromDigits[Flatten@IntegerDigits[Range@n, 13], 13]; Array[f, 20] (* Vincenzo Librandi, Dec 30 2012 *)

Prog

(Magma) [n eq 1 select 1 else Self(n-1)*13^(1+Ilog(13, n))+n: n in [1..20]]; // Vincenzo Librandi, Dec 30 2012

Crossrefs

Cf. A014896.

Concatenation of first n numbers in other bases: 2: A047778, 3: A048435, 4: A048436, 5: A048437, 6: A048438, 7: A048439, 8: A048440, 9: A048441, 10: A007908, 11: A048442, 12: A048443, 13: this sequence, 14: A048445, 15: A048446, 16: A048447.

Sequence in context: A078264 A322914 A014896 * A386613 A002007 A207835

Adjacent sequences: A048441 A048442 A048443 * A048445 A048446 A048447

Keyword

nonn,base,easy

Author

Patrick De Geest, May 15 1999

Status

approved