1,1

Table of n, a(n) for n=1..84.

k = 3; Do[i = 2; While[ !PrimeQ[10*i*k + 1], i++ ]; k *= i; Print[i], {n, 1, 100}] (* Ryan Propper, Aug 06 2005 *)

Cf. A089325.

Sequence in context: A162499 A350857 A135715 * A237367 A022923 A276858

Adjacent sequences: A089323 A089324 A089325 * A089327 A089328 A089329

nonn

Amarnath Murthy, Nov 03 2003

More terms from Ryan Propper, Aug 06 2005

approved