OFFSET
1,3
COMMENTS
Numbers congruent to {0, 3, 8, 11} mod 12.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_] := n(n + 1)(2n + 1)/6 - Sum[Prime[i], {i, n}]; Table[ f[n], {n, 15}] (* Robert G. Wilson v, Jun 25 2005 *)
#[[1]]-#[[2]]&/@With[{nn=50}, Thread[{Accumulate[Range[nn]^2], Accumulate[ Prime[ Range[nn]]]}]] (* Harvey P. Dale, May 07 2013 *)
CROSSREFS
KEYWORD
base,easy,sign
AUTHOR
Alexandre Wajnberg, Jun 23 2005
EXTENSIONS
Edited and extended by Robert G. Wilson v, Jun 25 2005
STATUS
approved