A066298 a(n) = googol (mod n).
0, 0, 1, 0, 0, 4, 4, 0, 1, 0, 1, 4, 3, 4, 10, 0, 4, 10, 9, 0, 4, 12, 13, 16, 0, 16, 10, 4, 16, 10, 5, 0, 1, 4, 25, 28, 10, 28, 16, 0, 1, 4, 31, 12, 10, 36, 27, 16, 11, 0, 4, 16, 28, 10, 45, 32, 28, 16, 16, 40, 47, 36, 46, 0, 55, 34, 10, 4, 13, 60, 20, 64, 72, 10, 25, 28, 67, 16, 67, 0
Offset: 1
Keywords
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 1000 terms from Harry J. Smith)
- Eric Weisstein's World of Mathematics, Googol
Crossrefs
Cf. A067007.
Programs
-
Maple
a:= n-> 10&^100 mod n: seq(a(n), n=1..100); # Alois P. Heinz, Feb 07 2018
-
Mathematica
Table[PowerMod[10, 100, n], {n, 2, 50}]
-
PARI
{ g=10^100; for (n=1, 1000, write("b066298.txt", n, " ", g%n) ) } \\ Harry J. Smith, Feb 09 2010
-
PARI
a(n) = lift(Mod(10, n)^100); \\ Michel Marcus, Feb 07 2018
Comments