|
|
A218161
|
|
Recurring digital invariants of order 3.
|
|
3
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
136: 1^3 + 3^3 + 6^3 = 244
244: 2^3 + 4^3 + 4^3 = 136,
so 136 is an order 3 recurring digital invariant.
|
|
MATHEMATICA
|
lst = {}; f[n_] := Total[IntegerDigits[n]^3]; Do[a = n; Do[a = f[a]; If[a < n, Break[]]; If[a == n && ! n == f[n], AppendTo[lst, n]; Break[]], {3}], {n, 10^3}]; lst
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,fini,full,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|