OFFSET
1,2
COMMENTS
This sequence is well-defined.
LINKS
Romanian Master in Mathematics Contest, Bucharest, 2007, Problem 3
MATHEMATICA
pim[n_]:=Module[{m=1}, While[!Divisible[Floor[3^m/m], n], m++]; m]; Array[pim, 80] (* Harvey P. Dale, Oct 26 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Mar 09 2008.
STATUS
approved