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

Author

T. D. Noe, Apr 16 2014

Keywords

• nonn

Links

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

Crossrefs

Cf. A001122, A019334, A213052.

Programs

Mathematica

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