[go: up one dir, main page]

login
A054033
Numbers n such that n^2 contains exactly 5 different digits.
10
113, 116, 117, 118, 124, 126, 128, 133, 134, 136, 137, 142, 144, 147, 148, 152, 153, 154, 169, 172, 174, 175, 176, 178, 179, 181, 186, 189, 191, 193, 195, 196, 198, 199, 203, 209, 213, 214, 217, 219, 224, 226, 228, 232, 233, 248, 252, 259, 267, 268, 269
OFFSET
1,1
COMMENTS
The first 66 terms are the only ones whose squares contain no repeated digits. - Charles R Greathouse IV, Feb 09 2015
LINKS
MAPLE
f := []; for i from 0 to 200 do if nops({op(convert(i^2, base, 10))})=5 then f := [op(f), i] fi; od; f;
MATHEMATICA
Select[Range[101, 500], Count[DigitCount[#^2], 0]==5&] (* Harvey P. Dale, Feb 08 2015 *)
PROG
(PARI) is(n)=#Set(digits(n^2))==5 \\ Charles R Greathouse IV, Feb 08 2015
KEYWORD
nonn,base
AUTHOR
Asher Auel, Feb 29 2000
STATUS
approved