OFFSET
1,2
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range@ 1400, Union@ IntegerDigits[#, 4] == Union@ IntegerDigits[#, 5] &] (* Michael De Vlieger, Feb 07 2017 *)
PROG
(PARI) is(n)=Set(digits(n, 4))==Set(digits(n, 5)) \\ Charles R Greathouse IV, Feb 11 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Edited by Don Reble, Apr 28 2006
Name edited by John Cerkan, Feb 06 2017
STATUS
approved