cp's OEIS Frontend

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.

A060711 Smallest number whose sum of digits is n^4.

This page as a plain text file.
%I A060711 #17 Dec 08 2024 12:26:30
%S A060711 1,79,999999999,49999999999999999999999999999,
%T A060711 4999999999999999999999999999999999999999999999999999999999999999999999,
%U A060711 999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
%N A060711 Smallest number whose sum of digits is n^4.
%H A060711 Harry J. Smith, <a href="/A060711/b060711.txt">Table of n, a(n) for n = 1..9</a>
%F A060711 a(n) = A051885(n^4).
%F A060711 a(n) >= 10^(n^4/9) - 1.
%t A060711 Do[ a = {}; While[ Apply[ Plus, a ] + 9 < n^4, a = Append[ a, 9 ] ]; If[ Apply[ Plus, a ] != n^4, a = Prepend[ a, n^4 - Apply[ Plus, a ] ] ]; Print[ FromDigits[ a ] ], {n, 1, 6} ]
%o A060711 (PARI) a(n)={ my(s=n^4, x=s\9, d=s-9*x); (d+1)*10^x - 1 } \\ _Harry J. Smith_, Jul 10 2009
%Y A060711 Cf. A051885, A061104, A061105.
%K A060711 nonn,base
%O A060711 1,2
%A A060711 _Robert G. Wilson v_, Apr 21 2001