|
|
A256633
|
|
Numbers n such that the decimal expansions of both n and n^2 have 0 as smallest digit and 6 as largest digit.
|
|
24
|
|
|
60, 160, 460, 506, 560, 600, 601, 602, 605, 660, 1006, 1016, 1060, 1160, 1460, 1560, 1600, 1601, 1602, 1620, 2006, 2016, 2060, 2160, 2460, 2560, 3606, 4506, 4600, 4605, 4650, 5006, 5016, 5060, 5160, 5506, 5600, 5605, 5660, 6000, 6001, 6002, 6005, 6010, 6020
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
fQ[n_] := Block[{c = DigitCount@ n}, And[Plus @@ Take[c, {7, 9}] == 0, c[[6]] > 0, c[[10]] > 0]]; Select[Range@ 6400, fQ@ # && fQ[#^2] &] (* Michael De Vlieger, Apr 12 2015 *)
|
|
PROG
|
(PARI) is(n) = vecmin(digits(n))==0 && vecmin(digits(n^2))==0 && vecmax(digits(n))==6 && vecmax(digits(n^2))==6
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|