login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A273614 Numbers n such that 3n - 1 divides 3^n - 1. 2
1, 9, 12, 96, 345, 432, 852, 945, 1452, 2160, 3480, 3753, 4800, 6561, 6984, 13230, 15840, 17040, 30210, 31008, 40320, 43776, 44352, 44652, 47628, 55200, 56940, 60420, 61065, 69312, 71145, 74100, 77400, 81504, 125580, 128016, 175952, 192240, 198168 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Alois P. Heinz and Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 1000 from Heinz)

MAPLE

a:= proc(n) option remember; local k;

      if n=1 then 1 else for k from 1+a(n-1)

      while 3&^k mod(3*k-1)<>1 do od; k fi

    end:

seq(a(n), n=1..40);  # Alois P. Heinz, May 27 2016

MATHEMATICA

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

PROG

(MAGMA)  [n: n in [1..200000] | Modexp(3, n, 3*n-1) eq 1];

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

CROSSREFS

Cf. A024023, A081856, A233415.

Sequence in context: A038302 A246916 A188001 * A281224 A050236 A193995

Adjacent sequences:  A273611 A273612 A273613 * A273615 A273616 A273617

KEYWORD

nonn

AUTHOR

Juri-Stepan Gerasimov, May 26 2016

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 14 12:04 EDT 2021. Contains 345025 sequences. (Running on oeis4.)