|
|
A048444
|
|
Take the first n numbers written in base 13, concatenate them, then convert from base 13 to base 10.
|
|
17
|
|
|
1, 15, 198, 2578, 33519, 435753, 5664796, 73642356, 957350637, 12445558291, 161792257794, 2103299351334, 355457590375459, 60072332773452585, 10152224238713486880, 1715725896342579282736, 289957676481895898782401
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
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.
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|