1,3

Do[ If[ PrimeQ[ 10*13^n + 1 ], Print[ n ] ], {n, 0, 1000} ]

Sequence in context: A086987 A051219 A007285 this_sequence A023145 A093105 A107905

Adjacent sequences: A057461 A057462 A057463 this_sequence A057465 A057466 A057467

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 08 2000