login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A070678 Smallest m in range 1..phi(n) such that 7^m == 1 mod n, or 0 if no such number exists. 10
0, 1, 1, 2, 4, 1, 0, 2, 3, 4, 10, 2, 12, 0, 4, 2, 16, 3, 3, 4, 0, 10, 22, 2, 4, 12, 9, 0, 7, 4, 15, 4, 10, 16, 0, 6, 9, 3, 12, 4, 40, 0, 6, 10, 12, 22, 23, 2, 0, 4, 16, 12, 26, 9, 20, 0, 3, 7, 29, 4, 60, 15, 0, 8, 12, 10, 66, 16, 22, 0, 70, 6, 24, 9, 4, 6, 0, 12 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,4

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

MATHEMATICA

Table[SelectFirst[Range[EulerPhi[n]], PowerMod[7, #, n]==1&], {n, 80}]/.(Missing["NotFound"]->0) (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 25 2019 *)

PROG

(MAGMA) [0] cat [Modorder(7, n): n in [2..100]]; // Vincenzo Librandi, Apr 01 2014

CROSSREFS

Cf. A070667-A070675, A002326, A070676, A053447, A070677, A070681, A053451, A070679, A070682, A070680, A070683.

Sequence in context: A055599 A115407 A010586 * A124091 A067849 A164268

Adjacent sequences:  A070675 A070676 A070677 * A070679 A070680 A070681

KEYWORD

nonn

AUTHOR

N. J. A. Sloane and Amarnath Murthy, May 08 2002

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 July 17 16:58 EDT 2019. Contains 325107 sequences. (Running on oeis4.)