login
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
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,1
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
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].
EXAMPLE
11 has primitive root 2 and 11+2 = 13 is prime after 11, so 13 is in sequence.
MATHEMATICA
Total/@Select[{#, PrimitiveRoot[#]}&/@Prime[Range[400]], NextPrime[ First[#]] == Total[#]&] (* Harvey P. Dale, Feb 18 2011 *)
CROSSREFS
Cf. A047934, A047935. See also A001918.
Sequence in context: A191473 A290482 A179633 * A369433 A075557 A244452
KEYWORD
nice,nonn
AUTHOR
EXTENSIONS
More terms from James A. Sellers, Dec 22 1999
STATUS
approved