|
%I #13 Mar 12 2015 18:37:39
%S 1,10,140,1640,24640,274640,4374640,46174640,742574640,11709374640,
%T 125136174640,2083602574640,21260029374640,334200456174640,
%U 3543204922574640,55713281349374640,593214421816174640,9552227030242574640,139134430302709374640,1632172505043136174640,24522541050451602574640
%N Powers of 10 in base 60, concatenating the decimal values of the sexagesimal digits.
%C Each sexagesimal digit appears as a pair of decimal digits as on a digital clock. Any leading zeros are truncated. Thus decimal 100 appears as "140" and not "0140".
%H Michael De Vlieger, <a href="/A254336/b254336.txt">Table of n, a(n) for n = 0..600</a>
%F a(n) = A055643(A011557(n)). - _Michel Marcus_, Mar 02 2015
%e 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.
%t f[n_] := FromDigits@ StringJoin[If[# < 10, StringJoin["0", ToString[#]],
%t ToString[#]] & /@ IntegerDigits[10^n, 60]]; Table[f@ i, {i, 0, 20}] (* _Michael De Vlieger_, Jan 28 2015 *)
%o (PARI) a(n) = subst(Pol(digits(10^n, 60)), x, 100); \\ _Michel Marcus_, Feb 22 2015
%Y Cf. A011557 (Powers of 10), A055643 (Babylonian numbers).
%Y Cf. Sexagesimal representations: A250073 (Powers of 2), A254334 (Powers of 3), A254335 (Powers of 5).
%K nonn,base
%O 0,2
%A _Michael De Vlieger_, Jan 28 2015
|
