|
%I #19 Jan 21 2019 19:01:55
%S 13,19,31,37,43,53,61,79,101,113,139,163,173,199,211,223,241,269,277,
%T 331,353,373,397,457,463,509,521,541,577,601,619,631,727,773,787,811,
%U 829,853,883,907,919,947,967,991,1013,1031,1181,1193,1201,1231,1237
%N Primes of the form prime(x)+prime(x+1)+1.
%H Vincenzo Librandi, <a href="/A092738/b092738.txt">Table of n, a(n) for n = 1..1000</a>
%t f[n_] := Prime[n] + Prime[n + 1] + 1; f[ # ] & /@ Select[ Range[120], PrimeQ[ f[ # ]] &] (* _Robert G. Wilson v_, Apr 14 2004 *)
%o (PARI) list(lim)=my(v=List(),p=2,t);forprime(q=3,,t=p+q+1;if(t>lim,return(Vec(v)));if(isprime(t),listput(v,t))) \\ _Charles R Greathouse IV_, Mar 19 2013
%Y Cf. A001043, A072669.
%K nonn,easy
%O 1,1
%A _Jorge Coveiro_, Apr 12 2004
%E More terms from _Robert G. Wilson v_, Apr 14 2004
|
