login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A270540 Numbers that are equal to the number of their digits multiplied by the sum of the fifth powers of the digits. 0
0, 1, 1232, 4100, 268542 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

COMMENTS

Terms up to 10^8.

No further terms after 10^7 since 10^k > k^2*9^5 beyond that point. - Ray Chandler, Apr 01 2016

LINKS

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

EXAMPLE

4100 is a term because 4100 = 4*(4^5+1^5+0^5+0^5).

MATHEMATICA

Position[ Table[ IntegerLength[ k] Sum[( Floor[k/10^n] - 10 Floor[k/10^(n + 1)])^5, {n, 0, IntegerLength@ k}] - k, {k, 1, 10^6}], 0] // Flatten = {1, 1232, 4100, 268542}

Select[Range[10^7], With[{id=IntegerDigits[#]}, #==Length[id]*Plus@@(id^5)]&] (* Ray Chandler, Apr 01 2016 *)

PROG

(PARI) isok(n) = my(d=digits(n)); n == #d*sum(k=1, #d, d[k]^5); \\ Michel Marcus, Mar 25 2016

CROSSREFS

Cf. A055014.

Sequence in context: A278018 A182721 A183881 * A206272 A064942 A101311

Adjacent sequences:  A270537 A270538 A270539 * A270541 A270542 A270543

KEYWORD

nonn,base,fini,full

AUTHOR

José de Jesús Camacho Medina, Mar 18 2016

EXTENSIONS

a(5) from Michel Marcus, Mar 25 2016

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 21 02:02 EST 2020. Contains 332086 sequences. (Running on oeis4.)