|
|
|
|
55, 105, 155, 203, 253, 355, 405, 455, 497, 595, 655, 689, 705, 737, 755, 791, 955, 979, 1005, 1027, 1055, 1081, 1221, 1255, 1305, 1355, 1379, 1555, 1605, 1655, 1673, 1703, 1711, 1751, 1855, 1905, 1955, 1967, 2065, 2155, 2189, 2205, 2255, 2261, 2329, 2455, 2505, 2555, 2755, 2805, 2849, 2855, 3055
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Neither primes nor prime powers present?
|
|
LINKS
|
|
|
PROG
|
(PARI)
A055023(n) = (n/denominator((sum(m=1, n - 1, m^(n - 1)) + 1)/n)); \\ From A055023.
A060681(n) = (n-if(1==n, n, n/vecmin(factor(n)[, 1])));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|