login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A068809 Squares with strictly increasing sum of digits. 8
1, 4, 9, 49, 169, 289, 1849, 3969, 6889, 27889, 69696, 97969, 499849, 698896, 2778889, 4999696, 9696996, 19998784, 46689889, 66699889, 79869969, 277788889, 478996996, 876988996, 1749999889, 5599977889, 7998976969, 8998988769, 17999978896 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Giovanni Resta, Table of n, a(n) for n = 1..80 (first 57 terms from Kevin Buzzard)

MAPLE

A007953 := proc(n) option remember: return add(d, d=convert(n, base, 10)): end: A068947 := proc(n) option remember: local k, p: if(n=1)then return 1: fi: k:=procname(n-1): p:=A007953(k^2): do k:=k+1: if(A007953(k^2)>p)then return k: fi: od: end: seq(A068947(n)^2, n=1..20); # Nathaniel Johnston, May 04 2011

MATHEMATICA

t = {}; s = 0; Do[If[(x = Total[IntegerDigits[y = n^2]]) > s, AppendTo[t, y]; s = x], {n, 150000}]; t (* Jayanta Basu, Aug 06 2013 *)

CROSSREFS

Cf. A068947, A068948, A068949, A068950, A068952, A069324.

Sequence in context: A019544 A053059 A006716 * A231177 A110481 A030088

Adjacent sequences:  A068806 A068807 A068808 * A068810 A068811 A068812

KEYWORD

base,nonn

AUTHOR

Amarnath Murthy, Mar 06 2002

EXTENSIONS

More terms from Francois Jooste (phukraut(AT)hotmail.com), Mar 15 2002

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 24 20:53 EDT 2019. Contains 323534 sequences. (Running on oeis4.)