

A273727


Numbers n such that 3n  1 divides 3^n  1 and 3 does not divide n.


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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*n1)^n==1 \\ Charles R Greathouse IV, May 29 2016


CROSSREFS

Cf. A233415. Subsequence of A273614.
Sequence in context: A092012 A224650 A262822 * A203406 A280447 A205177
Adjacent sequences: A273724 A273725 A273726 * A273728 A273729 A273730


KEYWORD

nonn


AUTHOR

JuriStepan Gerasimov, May 28 2016


STATUS

approved



