%I #8 Nov 29 2013 15:03:31
%S 1,2,1,2,4,5,13,5,3,4,6,5,7,13,13,5,16,10,15,4,13,11,15,5,22,7,9,13,
%T 30,13,33,17,11,16,13,10,19,37,7,13,8,13,55,11,14,67,35,5,43,22,82,7,
%U 108,92,20,13,37,30,120,13,11,33,26,17,14,11,23,16,24,13,72,10,13,19,22,37
%N Smallest positive integer m such that n divides [3^m/m] (=A092763(m)).
%C This sequence is well-defined.
%H Romanian Master in Mathematics Contest, Bucharest, 2007, <a href="http://www.artofproblemsolving.com/Forum/viewtopic.php?t=187665">Problem 3</a>
%t pim[n_]:=Module[{m=1},While[!Divisible[Floor[3^m/m],n],m++];m]; Array[pim, 80] (* _Harvey P. Dale_, Oct 26 2011 *)
%Y Cf. A092763, A138255, A138257, A138258, A138259, A138260, A138261, A138262, A138263.
%K nonn
%O 1,2
%A _Max Alekseyev_, Mar 09 2008.
|