OFFSET
1,3
MATHEMATICA
a = {}; Do[x = 0; While[Mod[x^2 + x + 41, 41^n] != 0, x++ ]; AppendTo[a, (x^2 + x + 41)/41^n}]; Print[{n, x, x^2 + x + 41, (x^2 + x + 41)/41^n}], {n, 1, 6}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Nov 06 2008
EXTENSIONS
a(7)-a(17) from Hugo Pfoertner, Jan 12 2019
STATUS
approved