A254335 Powers of 5 in base 60, concatenating the decimal values of the sexagesimal digits.
1, 5, 25, 205, 1025, 5205, 42025, 214205, 1483025, 9023205, 45124025, 346032205, 1850165025, 13411241205, 75057010025, 391445050205, 3161345251025, 16210847055205, 121454355292025, 648483937264205, 3404031807133025, 25020163036073205, 141141223300374025, 1105826524503082205, 5545214234515415025
Offset: 0
Examples
a(4) = 1025, since 5^4 = 625 = 10 * 60^1 + 25, thus 10:25 in clock-like notation, which becomes 1025 when restricted to numeric characters.
Links
- Michael De Vlieger, Table of n, a(n) for n = 0..1200
Crossrefs
Programs
-
Mathematica
f[n_] := FromDigits@ StringJoin[If[# < 10, StringJoin["0", ToString[#]], ToString[#]] & /@ IntegerDigits[5^n, 60]]; Table[f@ i, {i, 0, 24}] (* Michael De Vlieger, Jan 28 2015 *)
-
PARI
a(n) = subst(Pol(digits(5^n, 60)), x, 100); \\ Michel Marcus, Feb 22 2015
Comments