|
| |
| |
|
|
|
1, 6, 15, 21, 35, 11392, 1688, 10048, 53632, 101632, 5272, 2632, 6616, 50368, 1386, 102016, 1716, 1722, 161152, 4356, 11992, 92992, 4716, 101312, 589312, 2634, 644608, 3538, 3778, 898048, 30896, 16312, 3610, 3510, 4702, 1432576, 4626, 606976, 8908, 3738, 343936
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
|
|
|
FORMULA
|
|
|
|
MATHEMATICA
|
ucototient[n_] := n - Times @@ (Power @@@ FactorInteger[n] - 1); ucototient[1] = 0; With[{max = 3000}, sol = solnum = Table[0, {n, 1, max}]; Do[If[(i = ucototient[k]) <= max, sol[[i]] = k; solnum[[i]]++], {k, 2, max^2}]; Join[{1}, sol[[Position[solnum, 1] // Flatten]]]]
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
