A241043 Primes having primitive roots 2 and 3.

5, 19, 29, 53, 101, 139, 149, 163, 173, 197, 211, 269, 293, 317, 379, 389, 461, 509, 557, 653, 677, 701, 773, 797, 821, 859, 907, 941, 1061, 1109, 1123, 1229, 1277, 1291, 1301, 1373, 1483, 1493, 1637, 1733, 1747, 1901, 1949, 1973, 1987, 1997, 2069, 2083

Offset

1,1

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Mathematica

fQ[p_, n_] := MultiplicativeOrder[p, n] == n - 1; Select[Prime[Range[400]], fQ[2, #] && fQ[3, #] &]

Crossrefs

Cf. A001122, A019334, A213052.

Sequence in context: A045456 A115167 A115103 * A045457 A165557 A138242

Adjacent sequences: A241040 A241041 A241042 * A241044 A241045 A241046

Keyword

nonn

Author

T. D. Noe, Apr 16 2014

Status

approved