OFFSET
1,1
COMMENTS
a(n) == 3 mod 4.
Primes arising in A126148. - Jonathan Vos Post, Mar 08 2007
Number of primes <10^n: 0, 3, 8, 15, 26, 49, 99, 220, 514, 1228, 2991, 7746, 20218, 54081, ..., . - Robert G. Wilson v
LINKS
Vincenzo Librandi and Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 1000 terms from Librandi)
EXAMPLE
a(4)=167 because 11*13 + 11 + 13=167.
MATHEMATICA
a = {}; Do[p = Prime[n]Prime[n + 1] + Prime[n] + Prime[n + 1]; If[ PrimeQ[p], AppendTo[a, p]], {n, 110}]; a (* Robert G. Wilson v, Jul 01 2004 *)
Select[Times@@#+Total[#]&/@Partition[Prime[Range[200]], 2, 1], PrimeQ] (* Harvey P. Dale, Nov 25 2018 *)
PROG
(PARI) list(lim)=my(v=List(), p=2, t); forprime(q=3, , t=p*q+p+q; if (t>lim, return(Set(v))); if(isprime(t), listput(v, t)); p=q) \\ Charles R Greathouse IV, Sep 15 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Jun 29 2004
EXTENSIONS
More terms from Robert G. Wilson v, Jul 02 2004
STATUS
approved