|
1, 8, 12, 32, 54, 40, 48, 84, 120, 128, 108, 160, 252, 220, 192, 500, 312, 486, 336, 240, 512, 660, 544, 840, 432, 684, 936, 640, 504, 880, 1080, 1012, 768, 2058, 1000, 1632, 1248, 972, 2200, 1344, 2052, 1624, 960, 1860, 2268, 2048, 3120, 1320, 2176, 3036
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a = {}; Do[If[PrimeQ[n], [null], AppendTo[a, n EulerPhi[n]]], {n, 1, 100}]; a
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|