OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Flatten[Table[3^n*Range[Ceiling[10^(n-1)/3^n], Floor[(10^n-1)/3^n]], {n, 4}]] (* Harvey P. Dale, Feb 26 2015 *)
Select[Range[1500], Mod[#, 3^IntegerLength[#]]==0&] (* Harvey P. Dale, Apr 04 2020 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Patrick De Geest, Jun 15 1999
STATUS
approved