1,1
For values x see A147520 For values (x^2 + x + 41)/(41^n) see A147522
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 (*Artur Jasinski*)
A145292, A145293, A145294, A147520, A147521, A147522
Sequence in context: A170722 A170760 A009985 * A049676 A080178 A193124
Adjacent sequences: A147518 A147519 A147520 * A147522 A147523 A147524
nonn
Artur Jasinski (grafix(AT)csl.pl), Nov 06 2008
