OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
19 is in this sequence because 19^2 = 361 has 6 as largest digit.
MATHEMATICA
Select[Range[400], Max[IntegerDigits[#^2]]==6&] (* Harvey P. Dale, Mar 30 2024 *)
PROG
(PARI) select( is_A295006(n)=n&&vecmax(digits(n^2))==6 , [0..999]) \\ The "n&&" avoids an error message for n=0.
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Nov 12 2017
STATUS
approved