1,1

Do[ If[ PrimeQ[ n! - Prime[ n ] ], Print[ n ] ], {n, 1, 600} ]

Cf. A064278.

Adjacent sequences: A064398 A064399 A064400 this_sequence A064402 A064403 A064404

Sequence in context: A129302 A051658 A047491 this_sequence A079337 A032390 A112918

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 28 2001

Three more terms from Farideh Firoozbakht (f.firoozbakht(AT)math.ui.ac.ir), Feb 28 2004