OFFSET
1,1
FORMULA
MATHEMATICA
lst={}; Do[k=n^3-n^2; If[PrimeQ[k-1]&&PrimeQ[k+1], AppendTo[lst, p]], {n, 7!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 14 2009
STATUS
approved