A253828 Digit of Pi raised to the power of the next digit of Pi.
3, 1, 4, 1, 1953125, 81, 64, 7776, 125, 243, 390625, 134217728, 4782969, 40353607, 729, 9, 8, 6561, 4096, 4096, 36, 64, 1296, 64, 27, 6561, 512, 9, 128, 40353607, 59049, 1, 0, 256, 16777216, 4096, 4, 1, 4782969, 7, 1, 10077696, 729, 19683, 387420489, 729, 2187
Offset: 1
Links
- Felix Fröhlich, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A000796.
Programs
-
Mathematica
Module[{nn=1000,pidg},pidg=Partition[RealDigits[Pi,10,nn][[1]],2,1];If[ # == {0,0},1,#[[1]]^#[[2]]]&/@pidg] (* Harvey P. Dale, Oct 24 2021 *)
-
PARI
pistring(n) = default(realprecision, n+10); my(x=Pi); floor(x*10^n) pidigit(n) = pistring(n)-10*pistring(n-1) a(n) = pidigit(n-1)^pidigit(n) \\ Felix Fröhlich, Sep 23 2019
Formula
Extensions
More terms from Felix Fröhlich, Sep 23 2019
Comments