A318182 Numbers m such that A049417(A049417(m)) = k*m for some k where A049417 is the infinitary sigma function.
1, 2, 8, 9, 10, 15, 18, 24, 30, 60, 720, 1020, 4080, 8925, 14688, 14976, 16728, 17850, 35700, 36720, 37440, 66912, 71400, 285600, 308448, 381888, 428400, 602208, 636480, 763776, 856800, 1321920, 1505520, 3011040, 3084480, 21679488, 22276800, 30844800
Offset: 1
Keywords
Links
- Giovanni Resta, Table of n, a(n) for n = 1..85 (first 58 terms from Tomohiro Yamada)
- Tomohiro Yamada, Infinitary superperfect numbers, Annales Mathematicae et Informaticae, 47 (2017) pp. 211-218. See Table 1.
- Michel Marcus, Unexhaustive list of terms
Crossrefs
Programs
-
PARI
a049417(n) = {my(b, f=factorint(n)); prod(k=1, #f[, 2], b = binary(f[k, 2]); prod(j=1, #b, if(b[j], 1+f[k, 1]^(2^(#b-j)), 1)));} isok(n) = frac(a049417(a049417(n))/n) == 0;
Extensions
More terms from Giovanni Resta, Aug 25 2018
Comments