1,2
For values of x^2 + x + 41 see A147521 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]; 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: A041761 A140702 A145294 * A190926 A143314 A189503
Adjacent sequences: A147517 A147518 A147519 * A147521 A147522 A147523
nonn
Artur Jasinski (grafix(AT)csl.pl), Nov 06 2008
