1,3
For values x see A147520 For x^2 + x + 41 values see A147521
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 (*Artur Jasinski*)
A145292, A145293, A145294, A147520, A147521, A147522
Sequence in context: A081795 A108837 A091748 * A183489 A184144 A177488
Adjacent sequences: A147519 A147520 A147521 * A147523 A147524 A147525
nonn
Artur Jasinski (grafix(AT)csl.pl), Nov 06 2008
