|
%I #15 Jun 25 2020 00:15:38
%S 4602,5517,7539,12955,14555,20137,20379,26629,32767,35689,35825,37706,
%T 46020,46715,51988,55170,66344,73338,73974,75390,76157,86025,91497,
%U 105852,114488,129550,132234,145550,146399,158651,160897,171673,174782
%N Super-5 Numbers (5 * n^5 contains substring '55555' in its decimal expansion).
%D C. A. Pickover, "Keys to Infinity", New York: Wiley, p. 7, 1995.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Super-dNumber.html">Super-d Number</a>
%t Select[Range[200000],SequenceCount[IntegerDigits[5#^5],{5,5,5,5,5}]>0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 16 2016 *)
%Y Cf. A014569.
%K nonn,base
%O 0,1
%A _Patrick De Geest_, May 15 1998
|
