A138256 Smallest positive integer m such that n divides [3^m/m] (=A092763(m)).

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, 30, 13, 33, 17, 11, 16, 13, 10, 19, 37, 7, 13, 8, 13, 55, 11, 14, 67, 35, 5, 43, 22, 82, 7, 108, 92, 20, 13, 37, 30, 120, 13, 11, 33, 26, 17, 14, 11, 23, 16, 24, 13, 72, 10, 13, 19, 22, 37

Offset

1,2

Comments

This sequence is well-defined.

Links

Table of n, a(n) for n=1..76.

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

Cf. A092763, A138255, A138257, A138258, A138259, A138260, A138261, A138262, A138263.

Sequence in context: A034804 A050042 A166578 * A214783 A360279 A284001

Adjacent sequences: A138253 A138254 A138255 * A138257 A138258 A138259

Keyword

nonn

Author

Max Alekseyev, Mar 09 2008.

Status

approved