OFFSET
0,4
REFERENCES
L. W. Reid, The Elements of the Theory of Algebraic Numbers, MacMillan, NY, 1910, see Chap. VI.
FORMULA
a(n) = a(n-1) + A055667(n) for n > 0. - Seiichi Manyama, Dec 09 2017
MATHEMATICA
A055667[n_] := Which[n == 3, 6, PrimeQ[n] && Mod[n, 6] == 1, 12, PrimeQ[p = Sqrt[n]] && Mod[p, 3] == 2, 6, True, 0]; Accumulate[Array[A055667, 66, 0]] (* Jean-François Alcover, Feb 28 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Feb 06 2008
EXTENSIONS
Terms corrected by Seiichi Manyama, Dec 09 2017
STATUS
approved