OFFSET
1,1
LINKS
Felix Fröhlich, Table of n, a(n) for n = 1..10000
MATHEMATICA
sd1Q[n_]:=Module[{idn=IntegerDigits[n]}, Min[idn]==1&&Max[idn]==6]; Select[ Range[50000], AllTrue[{#, #^2}, sd1Q]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 22 2020 *)
PROG
(PARI) is(n) = vecmin(digits(n))==1 && vecmin(digits(n^2))==1 && vecmax(digits(n))==6 && vecmax(digits(n^2))==6
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Felix Fröhlich, Apr 18 2015
EXTENSIONS
Corrected b-file from Felix Fröhlich, Mar 18 2022
STATUS
approved