OFFSET
1,2
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
EXAMPLE
198 is in the sequence because 198 in base 7 is 402 and in base 9 it is 240.
MATHEMATICA
Select[Range[10^4], Union@ IntegerDigits[#, 7] == Union@ IntegerDigits[#, 9] &] (* Michael De Vlieger, Feb 18 2017 *)
PROG
(PARI) isok(n) = Set(digits(n, 7)) == Set(digits(n, 9)); \\ Michel Marcus, Feb 18 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Don Reble, Apr 28 2006
Edited by John Cerkan, Feb 17 2017
STATUS
approved