The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A111257 Primes in A111256. 0

%I

%S 11,17,19,29,31,41,43,53,67,73,79,89,97,107,113,127,139,151,157,163,

%T 181,191,199,211,223,241,271,277,307,337,347,353,373,389,409,439,461,

%U 463,491,499,509,521,547,577,601,619,631,701,709,733,757,769,773,787,821

%N Primes in A111256.

%F b(n) = If Prime[n+2]+Prime[n]+1 is prime then Prime[n+2]+Prime[n]+1 else Prime[n+1]+Prime[n]+1 a(n)=If b(n) if prime then b(n)

%t b=Table[If[PrimeQ[Prime[n + 2] + Prime[n] + 1], Prime[n + 2] + Prime[n] + 1, Prime[n + 1] + Prime[n] + 1], {n, 1, 200}] a=Flatten[Table[If[PrimeQ[b[[n]]], b[[n]], {}], {n, 1, 200}]]

%K nonn

%O 1,1

%A _Roger L. Bagula_, Nov 01 2005

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified November 27 12:51 EST 2021. Contains 349394 sequences. (Running on oeis4.)