A254336 Powers of 10 in base 60, concatenating the decimal values of the sexagesimal digits.
1, 10, 140, 1640, 24640, 274640, 4374640, 46174640, 742574640, 11709374640, 125136174640, 2083602574640, 21260029374640, 334200456174640, 3543204922574640, 55713281349374640, 593214421816174640, 9552227030242574640, 139134430302709374640, 1632172505043136174640, 24522541050451602574640
Offset: 0
Examples
a(3) = 1640, since 10^3 = 1000 = 16 * 60^1 + 40, thus 16:40 in clock-like notation, which becomes 1640 when restricted to numeric characters.
Links
- Michael De Vlieger, Table of n, a(n) for n = 0..600
Crossrefs
Programs
-
Mathematica
f[n_] := FromDigits@ StringJoin[If[# < 10, StringJoin["0", ToString[#]], ToString[#]] & /@ IntegerDigits[10^n, 60]]; Table[f@ i, {i, 0, 20}] (* Michael De Vlieger, Jan 28 2015 *)
-
PARI
a(n) = subst(Pol(digits(10^n, 60)), x, 100); \\ Michel Marcus, Feb 22 2015
Comments