This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A124359 #32 Jul 15 2018 12:59:48 %S A124359 0,1,2,3,4,5,6,7,8,9,17,18,20,22,25,26,27,28,31,34,35,36,40,43,45,46, %T A124359 53,54,58,63,64,68,71,80,81,82,85,86,90,91,94,97,98,103,104,106,107, %U A124359 108,117,118,126,127,133,134,135,136,140,142,143,146,152,154,155,157,160,163,169,170 %N A124359 Numbers n for which the sum of the digits of n^k, for some k, is equal to n. %C A124359 Most of the values are conjectural. So far not much is proved about the function A247889. - _M. F. Hasler_ and _Robert Israel_, May 18 2017 %H A124359 Hans Havermann, <a href="/A124359/b124359.txt">Table of n, a(n) for n = 1..3600</a> %H A124359 Hans Havermann, <a href="http://chesswanks.com/num/a124359.txt">Solutions (k) for the terms (n <= 20034) of this sequence</a> %e A124359 18^3 = 5832 and 5 + 8 + 3 + 2 = 18 (also 18^6 = 34012224 and 18^7 = 612220032). %e A124359 Again 46^5 = 205962976 and 2 + 0 + 5 + 9 + 6 + 2 + 9 + 7 + 6 = 46. %o A124359 (PARI) for(n=0,199,if(A247889(n),print1(n,", "))) \\ _Derek Orr_, Sep 25 2014 %o A124359 (PARI) select(A247889,[0..170]) \\ _M. F. Hasler_, May 18 2017 %Y A124359 Complement of A124367. Numbers for which A247889 is nonzero. %K A124359 nonn,base %O A124359 1,3 %A A124359 _Paolo P. Lava_ and _Giorgio Balzarotti_, Oct 27 2006 %E A124359 Prepended a(1) = 0, offset corrected and more terms added by _Derek Orr_, Sep 25 2014 %E A124359 Edited by _M. F. Hasler_, May 18 2017