OFFSET
1,3
COMMENTS
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, …, .
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
LINKS
Robert G. Wilson v and Chai Wah Wu, Table of n, a(n) for n = 1..428 (n = 1..106 from Robert G. Wilson v).
Patrick De Geest, Palindromic Squares
FORMULA
a(n) = A028819(n)^2. - Ray Chandler, Jan 06 2014
MATHEMATICA
Select[Range[0, 4000]^2, Min[Differences[IntegerDigits[#]]]>-1&] (* Harvey P. Dale, Dec 31 2013 *)
Select[Range[0, 10^4]^2, LessEqual@@IntegerDigits[#]&] (* Ray Chandler, Jan 06 2014 *)
PROG
(PARI) mono(n)=n=eval(Vec(Str(n))); for(i=2, #n, if(n[i]<n[i-1], return(0))); 1
for(n=1, 800, if(mono(n^2), print1(n^2", "))) \\ Charles R Greathouse IV, Aug 22 2011
(Python)
from itertools import combinations_with_replacement
from gmpy2 import is_square
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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Definition edited by Zak Seidov, Dec 31 2013
STATUS
approved