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!)
A218247 Recurring digital invariants of order 6. 2

%I

%S 17148,63804,93531,239459,282595

%N Recurring digital invariants of order 6.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/RecurringDigitalInvariant.html">Recurring Digital Invariant</a>

%e 63804: 6^6 + 3^6 + 8^6 + 0^6 + 4^6 = 313625

%e 313625: 3^6 + 1^6 + 3^6 + 6^6 + 2^6 + 5^6 = 63804,

%e so 63804 is an order 6 recurring digital invariant.

%t lst = {}; f[n_] := Total[IntegerDigits[n]^6]; Do[a = n; Do[a = f[a]; If[a < n, Break[]]; If[a == n && ! n == f[n], AppendTo[lst, n]; Break[]], {30}], {n, 10^6}]; lst

%Y Cf. A218161, A218246, A218248.

%K base,fini,full,nonn

%O 1,1

%A _Arkadiusz Wesolowski_, Oct 24 2012

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 June 14 20:21 EDT 2021. Contains 345038 sequences. (Running on oeis4.)