OFFSET
1,1
COMMENTS
Includes a*10^n+b for n >= 2 and [a,b] in {[4, 1], [9, 1], [2, 2], [9, 2], [1, 4], [6, 4], [9, 4], [8, 5], [4, 6], [9, 6], [5, 8], [8, 8], [9, 8], [1, 9], [2, 9], [4, 9], [6, 9], [8, 9], [9, 9]}. - Robert Israel, Nov 13 2017
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
28 is in this sequence because 28^2 = 784 has 8 as largest digit.
MAPLE
select(t -> max(convert(t^2, base, 10))=8, [$1..1000]); # Robert Israel, Nov 13 2017
MATHEMATICA
Select[Range[400], Max[IntegerDigits[#^2]]==8&] (* Harvey P. Dale, Jun 02 2019 *)
PROG
(PARI) select( is_A295008(n)=n&&vecmax(digits(n^2))==8 , [0..999]) \\ The "n&&" avoids an error message for n=0.
(Python)
def ok(n): return max(int(d) for d in str(n*n)) == 8
print(list(filter(ok, range(350)))) # Michael S. Branicky, Sep 22 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Nov 12 2017
STATUS
approved