1,1
Table of n, a(n) for n=1..7.
f[n_]:=n!-n; lst={}; Do[If[PrimeQ[f[n+1]-f[n]], AppendTo[lst, f[n+1]-f[n]]], {n, 0, 5!}]; lst [From Vladimir Joseph Stephan Orlovsky, Jun 27 2009]
For more terms see A049433.
Sequence in context: A128300 A001601 A061119 * A126579 A217957 A225728
Adjacent sequences: A049982 A049983 A049984 * A049986 A049987 A049988
nonn
N. J. A. Sloane.
approved
