OFFSET
0,62
COMMENTS
a(n) = d(n) with n^n = Sum(d(k)*60^k: 0 <= d(k) < 60, k >= 0).
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 0..10000
Eric Weisstein's World of Mathematics, Sexagesimal
FORMULA
a(n) = floor(n^n / 60^n) mod 60.
EXAMPLE
a(0) = 1, a(k) = 0 for 0 < k < 60 and a(60) = 1.
MATHEMATICA
f[n_] := IntegerDigits[n^n, 60, n + 1][[1]]; f[0] = 1; Array[f, 92, 0] (* Robert G. Wilson v, Dec 27 2012 *)
PROG
(PARI) a(n)=lift(chinese(chinese(Mod(n, 3^(n+1))^n, Mod(n, 4^(n+1))^n), Mod(n, 5^(n+1))^n))\60^n \\ Charles R Greathouse IV, Dec 27 2012
(Haskell)
a088157 n = mod (div (n ^ n) (60 ^ n)) 60
-- Reinhard Zumkeller, Mar 14 2014
CROSSREFS
KEYWORD
AUTHOR
Reinhard Zumkeller, Sep 20 2003
STATUS
approved