cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A309697 a(n) is the digit that precedes the last nonzero digit of n^n.

This page as a plain text file.
%I A309697 #11 Aug 13 2019 05:34:35
%S A309697 0,0,2,5,2,5,4,1,8,0,1,5,5,1,7,1,7,2,7,7,2,8,6,7,2,7,0,3,6,4,3,7,1,3,
%T A309697 7,3,1,0,5,7,4,6,0,9,2,9,6,5,4,2,5,9,7,5,7,5,5,8,3,7,6,4,4,1,2,1,2,7,
%U A309697 2,4,7,1,3,7,7,7,9,6,1,7,8,2,8,3,2,3,8,9,0,0,9,3,9,9,7,9,3,4,9,0
%N A309697 a(n) is the digit that precedes the last nonzero digit of n^n.
%C A309697 Chu proves that the constant 0.00252541801... is transcendental.
%H A309697 Hung Viet Chu, <a href="https://arxiv.org/abs/1908.03855">New Transcendental Numbers from Certain Sequences</a>, arXiv:1908.03855 [math.NT], 2019.
%t A309697 a[n_] := Floor[PowerMod[n/10^IntegerExponent[n, 10], n, 100]/10]; Array[a, 100] (* _Giovanni Resta_, Aug 13 2019 *)
%o A309697 (PARI) a(n) = {my(d=digits(n^n)); forstep (k=#d, 1, -1, if (d[k], if (k==1, return (0)); return (d[k-1]));); return(0);}
%Y A309697 Cf. A056849.
%K A309697 nonn,base
%O A309697 1,3
%A A309697 _Michel Marcus_, Aug 13 2019