1,2

Do[ If[ PrimeQ[ Sum[ k!, {k, 0, n - 1} ] + 2n - 1 ], Print[ n ] ], {n, 1, 883} ]

Cf. A063106.

Sequence in context: A123643 A115008 A115883 this_sequence A123210 A101724 A019277

Adjacent sequences: A063505 A063506 A063507 this_sequence A063509 A063510 A063511

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 09 2001