OFFSET
1,1
COMMENTS
If A006562 is when -Prime[ -1 + n] + 2 Prime[n] - Prime[1 + n] = 0; then this "Integer differential" is the next higher order.
FORMULA
MATHEMATICA
Flatten[Table[If[ -Prime[ -1 +n] + 3*Prime[n] - 3*Prime[1 + n] + Prime[n + 2] == 0, Prime[n], {}], {n, 2, 500}]]
Select[Partition[Prime[Range[500]], 4, 1], 3#[[2]]+#[[4]]==#[[1]]+3#[[3]]&][[All, 2]](* Harvey P. Dale, Jul 09 2018 *)
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Roger L. Bagula, Jun 07 2008
EXTENSIONS
Edited by N. J. A. Sloane, Jul 01 2008
Definition corrected by Harvey P. Dale, Jul 09 2018
STATUS
approved