This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A238982 Numbers n dividing the sum of n-th 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 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 21 12:04 EDT 2019. Contains 321369 sequences. (Running on oeis4.)