OFFSET
1,2
MAPLE
A000030 := proc(n) op(-1, convert(n, base, 10)) ; end: isA134468 := proc(n) if A000030(2^n) = A000030(3^n) then true ; else false; fi ; end: for n from 0 to 800 do if isA134468(n) then printf("%d, ", n) ; fi ; od: # R. J. Mathar, Jan 30 2008
MATHEMATICA
Select[Range[0, 500], IntegerDigits[2^# ][[1]] == IntegerDigits[3^# ][[1]] &] (* Stefan Steinerberger, Jan 21 2008 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jan 20 2008
EXTENSIONS
More terms from Stefan Steinerberger, Jan 21 2008
More terms from R. J. Mathar, Jan 30 2008
STATUS
approved