OFFSET
0,2
MATHEMATICA
a[n_] := IntegerDigits[7^n][[1]]; Array[a, 100, 0] (* Amiram Eldar, Jul 15 2023 *)
PROG
(PARI) a(n) = digits(7^n)[1];
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Seiichi Manyama, Jul 15 2023
STATUS
approved