login
A066434
a(n) = floor(Pi^n mod n^Pi).
1
0, 1, 31, 19, 149, 126, 309, 553, 952, 822, 755, 559, 511, 3457, 4618, 4515, 6834, 1924, 7213, 686, 10218, 3289, 8069, 16651, 2174, 23544, 10573, 32942, 4310, 7298, 14583, 30773, 33098, 18392, 52460, 63115, 23752, 34740, 87039, 94807, 19180
OFFSET
1,3
LINKS
MATHEMATICA
Table[ Floor[ Mod[ Pi^n, n^Pi]], {n, 1, 45} ]
PROG
(PARI) { default(realprecision, 1000); for (n=1, 1000, write("b066434.txt", n, " ", floor(Pi^n % n^Pi)) ) } \\ Harry J. Smith, Feb 14 2010
CROSSREFS
Sequence in context: A240910 A297940 A298551 * A040932 A298724 A299558
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 27 2001
STATUS
approved