OFFSET
1,1
MATHEMATICA
a = {}; Do[x = 0; While[Mod[x^2 + x + 41, 41^n] != 0, x++ ]; AppendTo[a, x^2 + x + 41]; 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(12) from Hugo Pfoertner, Jan 12 2019
STATUS
approved