Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A362871
Leading digit of 6^n.
3
1, 6, 3, 2, 1, 7, 4, 2, 1, 1, 6, 3, 2, 1, 7, 4, 2, 1, 1, 6, 3, 2, 1, 7, 4, 2, 1, 1, 6, 3, 2, 1, 7, 4, 2, 1, 1, 6, 3, 2, 1, 8, 4, 2, 1, 1, 6, 3, 2, 1, 8, 4, 2, 1, 1, 6, 3, 2, 1, 8, 4, 2, 1, 1, 6, 3, 2, 1, 8, 4, 2, 1, 1, 6, 3, 2, 1, 8, 4, 2, 1, 1, 6, 3, 2, 1, 8, 5, 3, 1, 1, 6, 3, 2, 1, 8, 5, 3, 1, 1, 6
OFFSET
0,2
FORMULA
a(n) = A000030(A000400(n)).
MATHEMATICA
a[n_] := IntegerDigits[6^n][[1]]; Array[a, 100, 0] (* Amiram Eldar, Jul 15 2023 *)
PROG
(PARI) a(n) = digits(6^n)[1];
KEYWORD
nonn,base,easy
AUTHOR
Seiichi Manyama, Jul 15 2023
STATUS
approved