A066434 - OEIS

%I #8 Jun 15 2018 21:28:18

%S 0,1,31,19,149,126,309,553,952,822,755,559,511,3457,4618,4515,6834,

%T 1924,7213,686,10218,3289,8069,16651,2174,23544,10573,32942,4310,7298,

%U 14583,30773,33098,18392,52460,63115,23752,34740,87039,94807,19180

%N a(n) = floor(Pi^n mod n^Pi).

%H Harry J. Smith, <a href="/A066434/b066434.txt">Table of n, a(n) for n = 1..1000</a>

%t Table[ Floor[ Mod[ Pi^n, n^Pi]], {n, 1, 45} ]

%o (PARI) { default(realprecision, 1000); for (n=1, 1000, write("b066434.txt", n, " ", floor(Pi^n % n^Pi)) ) } \\ _Harry J. Smith_, Feb 14 2010

%K nonn

%O 1,3

%A _Robert G. Wilson v_, Dec 27 2001