

A238982


Numbers n dividing the sum of nth powers of unitary divisors of n.


2



1, 10, 45, 50, 130, 250, 315, 410, 735, 1125, 1250, 1690, 2050, 2205, 2210, 2373, 2565, 2745, 3045, 3250, 3285, 3321, 3465, 3645, 4225, 5050, 5330, 6125, 6250, 6615, 6890, 7875, 8619, 8835, 9135, 9225, 9555, 9933, 10250
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

Table of n, a(n) for n=1..39.


MATHEMATICA

AA[n_, k_] := AA[n, k] = Mod[Sum[If[GCD[i, n] == i && GCD[i, n/i] == 1, PowerMod[i, k, n], 0], {i, n}], n]; Select[Range[1000], Mod[AA[#, #], #] == 0 &]


CROSSREFS

Cf. A034448, A238981, A238983.
Sequence in context: A160970 A202296 A299530 * A292611 A275623 A245871
Adjacent sequences: A238979 A238980 A238981 * A238983 A238984 A238985


KEYWORD

nonn


AUTHOR

José María Grau Ribas, Mar 07 2014


STATUS

approved



