A047933 Consider primes p with least positive primitive root g such that q=p+g is next prime after p; sequence gives values of q.

3, 5, 7, 13, 31, 61, 103, 109, 151, 157, 181, 199, 229, 257, 271, 277, 347, 349, 373, 421, 463, 661, 739, 823, 829, 977, 997, 1021, 1031, 1063, 1093, 1231, 1279, 1303, 1429, 1453, 1621, 1669, 1789, 1879, 1933, 1951, 1999, 2029, 2143, 2239, 2269, 2311

Offset: 1

Author

Felice Russo

Keywords

• nice
• nonn

Examples

			11 has primitive root 2 and 11+2 = 13 is prime after 11, so 13 is in sequence.
		

References

• M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 864.

Links

• T. D. Noe, Table of n, a(n) for n=1..1000
• M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
• Index entries for primes by primitive root

Crossrefs

Cf. A047934, A047935. See also A001918.

Programs

Mathematica

Total/@Select[{#,PrimitiveRoot[#]}&/@Prime[Range[400]],NextPrime[ First[#]] == Total[#]&]  (* Harvey P. Dale, Feb 18 2011 *)

Extensions

More terms from James Sellers, Dec 22 1999