OFFSET
1,1
COMMENTS
These primes are generated by exactly A163268.
This sequence is included in A088550.
These numbers are repunit primes 1111111_n, so they are Brazilian primes and are terms of A085104.
Subsequence of A088550. - Hartmut F. W. Hoft, May 05 2017
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
select(isprime, map(p -> add(p^i, i=0..6), select(isprime, [2, seq(i, i=3..1000, 2)]))); # Robert Israel, May 05 2017
MATHEMATICA
a194257[n_] := Select[Map[(Prime[#]^7-1)/(Prime[#]-1)&, Range[n]], PrimeQ]
a194257[70] (* data *) (* Hartmut F. W. Hoft, May 05 2017 *)
Select[Table[Total[p^Range[0, 6]], {p, Prime[Range[100]]}], PrimeQ] (* Harvey P. Dale, Mar 09 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Bernard Schott, Dec 21 2012
STATUS
approved