|
Search: id:A084112
|
|
| |
|
| 1, 16, 48, 80, 81, 112, 405, 567, 625, 704, 832, 891, 1053, 1088, 1216, 1377, 1472, 1539, 1856, 1863, 1984, 2368, 2401, 2624, 2752, 3008, 3392, 3776, 3904, 4032, 4288, 4375, 4544, 4672, 5056, 5312, 5696, 6208, 6464, 6592, 6848, 6875, 6976, 7232, 8125
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
A084110(a(n)) = a(n).
|
|
PROGRAM
|
(PARI) f(n) = local(d, m); d = divisors(n); m = 1; for (i = 2, length(d), if (m%d[i], m *= d[i], m = m/d[i])); m; count = 0; i = 0; while (count < 70, i++; if (!isprime(i), if (f(i) == i, count++; print(i)))); (Wasserman)
|
|
CROSSREFS
|
Adjacent sequences: A084109 A084110 A084111 this_sequence A084113 A084114 A084115
Sequence in context: A083307 A045047 A069084 this_sequence A050428 A134605 A035008
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), May 12 2003
|
|
EXTENSIONS
|
More terms from David Wasserman (wasserma(AT)spawar.navy.mil), Dec 13 2004
|
|
|
Search completed in 0.002 seconds
|
