A374308 - OEIS

A374308

Integers m, with k digits, such that m = Sum_{i=1..k} A000203(m without its i-th digit).

136, 10974, 96672, 227358, 455334, 527254, 947886

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

No other term up to 10^10. - Giovanni Resta, Jul 06 2024

LINKS

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

EXAMPLE

136 is in the sequence as 136 = sigma(36) + sigma(16) + sigma(13) = 91 + 31 + 14. - David A. Corneth, Jul 27 2024

MAPLE

with(numtheory): P:=proc(q) local a, d, k, i, n, t;

for n from 1 to q do t:=0; a:=convert(n, base, 10);

for k from 1 to nops(a) do d:=0;

for i from 1 to nops(a) do if i<> k then d:=d*10+a[-i]; fi; od; t:=sigma(d)+t; od;

if n=t then print(n); fi; od; end: P(10^6)

MATHEMATICA

q[n_] := Module[{d = IntegerDigits[n]}, n == Total[DivisorSigma[1, Map[FromDigits, Delete[d, #] & /@ Range[Length[d]]]]]]; Select[Range[10^6], q] (* Amiram Eldar, Jul 27 2024 *)

CROSSREFS

Cf. A000203, A372753, A374309, A374368.

Sequence in context: A248452 A035819 A233086 * A278185 A225832 A233172

Adjacent sequences: A374305 A374306 A374307 * A374309 A374310 A374311

KEYWORD

nonn,base,more

AUTHOR

Paolo P. Lava, Jul 03 2024

STATUS

approved