OFFSET
1,1
COMMENTS
A subsequence of A000290.
LINKS
Colin Barker, Table of n, a(n) for n = 1..100
PROG
(PARI) L=List(); for(n=1, 10000, if(vecmax(digits(n^2))==3, listput(L, n^2))); Vec(L)
(Magma) [n^2: n in [1..1000000] | Maximum(Intseq(n^2)) eq 3]; // Vincenzo Librandi, Nov 06 2016
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Colin Barker, Nov 05 2016
STATUS
approved