|
|
A098934
|
|
Numbers n such that the sum of the first n digits of Pi are divisible by n.
|
|
0
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
a[1] = 1 since 3 is divisible by 1.
a[2] = 2 since 3 + 1 = 4 is divisible by 2.
a[3] != 3 since 3 + 1 + 4 = 8 is not divisible by 3.
|
|
MATHEMATICA
|
$MaxPrecision = 2500000; pd = RealDigits[N[Pi, 2000000]][[1]]; s = 0; Do[s = s + pd[[n]]; If[ Mod[s, n] == 0, Print[n]], {n, 2000000}] (* Robert G. Wilson v, Oct 21 2004 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,fini,full,nonn
|
|
AUTHOR
|
Anne M. Donovan (anned3005(AT)aol.com), Oct 20 2004
|
|
STATUS
|
approved
|
|
|
|