OFFSET
1,2
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
EXAMPLE
423 is in the sequence because 423 in base 5 is 3413 and in base 7 it is 1143.
MAPLE
a:=proc(n) if convert(convert(n, base, 5), set)=convert(convert(n, base, 7), set) then n else fi end: seq(a(n), n=1..3000); # Emeric Deutsch, Apr 30 2006
MATHEMATICA
Select[Range[3000], Union[IntegerDigits[#, 5]]==Union[IntegerDigits[#, 7]]&] (* Harvey P. Dale, Mar 06 2012 *)
PROG
(PARI) is(n)=Set(digits(n, 5))==Set(digits(n, 7)) \\ Charles R Greathouse IV, Feb 11 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Don Reble, Apr 28 2006
Name edited by John Cerkan, Feb 09 2017
STATUS
approved