1,10
Do[ k = 0; While[ !PrimeQ[ (n + 1)^(2^k) + n^(2^k) ], k++ ]; Print[ 2^k ], {n, 1, 60} ].
Cf. A057856.
Sequence in context: A199916 A180494 A200653 * A198927 A198100 A104112
Adjacent sequences: A058061 A058062 A058063 * A058065 A058066 A058067
hard,nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 14 2000