A066434 a(n) = floor(Pi^n mod n^Pi).

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

Harry J. Smith, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A066431 A066432 A066433 * A066435 A066436 A066437

Keyword

nonn

Author

Robert G. Wilson v, Dec 27 2001

Status

approved