|
Search: id:A112014
|
|
|
| A112014 |
|
Numbers n with odd length such that n = d_1+(d_2^d_3)+ ...+(d_(k-1)^d_k) where d_1 d_2 ... d_k is the decimal expansion of n. |
|
+0
3
|
|
| 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 736, 15642, 15662, 1680129, 1686394
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
EXAMPLE
|
1686394 is in the sequence (the largest term) because 1686394=1+(6^8)+(6^3)+(9^4).
|
|
MATHEMATICA
|
Do[h=IntegerDigits[n]; k=Length[h]; If[ OddQ[k] && Select[ Range[k/2], h[[2# ]] ==0== h[[2#+1]] &]=={} && n==h[[1]]+ Sum[h[[2j]]^h[[2j+1]], {j, k/2}], Print[n]], {n, 10^9}]
|
|
CROSSREFS
|
Cf. A112015, A112016.
Sequence in context: A069282 A069747 A124107 this_sequence A145461 A075154 A070938
Adjacent sequences: A112011 A112012 A112013 this_sequence A112015 A112016 A112017
|
|
KEYWORD
|
base,fini,full,nonn
|
|
AUTHOR
|
Farideh Firoozbakht (mymontain(AT)yahoo.com), Sep 15 2005
|
|
|
Search completed in 0.002 seconds
|
