cp's OEIS Frontend

A028820 Squares with digits in nondecreasing order.

%I A028820 #38 Feb 10 2025 20:04:00
%S A028820 0,1,4,9,16,25,36,49,144,169,225,256,289,1156,1225,1369,1444,4489,
%T A028820 6889,11236,11449,13456,13689,27889,33489,111556,112225,113569,134689,
%U A028820 146689,344569,444889,2666689,2778889,11115556,11122225,11135569
%N A028820 Squares with digits in nondecreasing order.
%C A028820 Number of terms less than 10^k, beginning with k=0: 1, 4, 8, 13, 19, 25, 32, 34, 42, 43, 50, 53, 61, 62, 71, 72, 82, 83, 94, 95, …, .
%C A028820 Like all squares the ending digits can be 0, 1, 4, 5, 6 or 9. Here is the tally of the list of terms < 10^19: {0, 1}, {1, 1}, {4, 4}, {5, 10}, {6, 13}, {9, 66}. _Robert G. Wilson v_, Jan 01 2014
%H A028820 Robert G. Wilson v and Chai Wah Wu, <a href="/A028820/b028820.txt">Table of n, a(n) for n = 1..428</a> (n = 1..106 from Robert G. Wilson v).
%H A028820 Patrick De Geest, <a href="https://www.worldofnumbers.com/nobase10pg2.htm">Palindromic Squares in bases 2 to 17</a>
%F A028820 a(n) = A028819(n)^2. - _Ray Chandler_, Jan 06 2014
%t A028820 Select[Range[0,4000]^2,Min[Differences[IntegerDigits[#]]]>-1&] (* _Harvey P. Dale_, Dec 31 2013 *)
%t A028820 Select[Range[0,10^4]^2,LessEqual@@IntegerDigits[#]&] (* _Ray Chandler_, Jan 06 2014 *)
%o A028820 (PARI) mono(n)=n=eval(Vec(Str(n)));for(i=2,#n,if(n[i]<n[i-1],return(0)));1
%o A028820 for(n=1,800,if(mono(n^2),print1(n^2", "))) \\ _Charles R Greathouse IV_, Aug 22 2011
%o A028820 (Python)
%o A028820 from itertools import combinations_with_replacement
%o A028820 from gmpy2 import is_square
%o A028820 A028820_list = [0] + [n for n in (int(''.join(i)) for l in range(1,11) for i in combinations_with_replacement('123456789',l)) if is_square(n)] # _Chai Wah Wu_, Dec 07 2015
%Y A028820 Cf. A028819, A028821, A028822, A237424.
%Y A028820 Intersection of A000290 and A009994.
%K A028820 nonn,base
%O A028820 1,3
%A A028820 _Patrick De Geest_
%E A028820 Definition edited by _Zak Seidov_, Dec 31 2013