A152491 Numbers n such that 1/c = 1/n + 1/S(n). c, n positive integers (A000027(n)), S(n) sum of digits of n (A007953(n)).
2, 4, 6, 8, 18, 72
Offset: 1
Programs
-
PARI
lista(nn) = {for (n=1, nn, digs = Vec(Str(n)); sn = sum(i=1, #digs, eval(digs[i])); if (type(1/(1/n+1/sn)) == "t_INT", print1(n, ", ")););} \\ Michel Marcus, Jun 02 2013
Comments