1,3
Do[ If[ PrimeQ[ 10*13^n + 1 ], Print[ n ] ], {n, 0, 1000} ]
Sequence in context: A086987 A051219 A007285 * A160629 A023145 A093105
Adjacent sequences: A057461 A057462 A057463 * A057465 A057466 A057467
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 08 2000