OFFSET
1,28
REFERENCES
L. C. Washington, Introduction to Cyclotomic Fields, Springer, p. 353.
MATHEMATICA
(* This is only a recomputation of the existing data. *)
terms = 76;
A035113 = Sort[Select[Range[3 terms], Mod[#, 4] != 2&], EulerPhi[#1] <= EulerPhi[#2]&];
Array[a, terms] (* Jean-François Alcover, Aug 17 2019 *)
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
EXTENSIONS
Changed 41421 to 41241, value is given incorrectly in first edition of Washington, Matthew Johnson, Jul 20 2013
STATUS
approved