A273727 Numbers k such that 3k - 1 divides 3^k - 1 and 3 does not divide k.

1, 175952, 348880, 649078, 951625, 1495472, 1944320, 3140852, 3483200, 3643270, 4359040, 4703776, 6513584, 8170904, 9854200, 11005568, 11831890, 12149872, 12828200, 12910928, 18095630, 18964400, 22034516, 43599424, 62849024, 66322480, 82159588, 85181600

Offset

1,2

Links

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

Mathematica

Select[Range[10^6], Mod[#, 3] > 0 && PowerMod[3, #, 3*#-1] == 1 &] (* Giovanni Resta, May 29 2016 *)

Prog

(PARI) is(n)=n%3 && Mod(3, 3*n-1)^n==1 \\ Charles R Greathouse IV, May 29 2016

Crossrefs

Cf. A233415. Subsequence of A273614.

Sequence in context: A092012 A224650 A262822 * A368419 A203406 A280447

Adjacent sequences: A273724 A273725 A273726 * A273728 A273729 A273730

Keyword

nonn

Author

Juri-Stepan Gerasimov, May 28 2016

Status

approved