login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A111257 Primes in A111256. 0
11, 17, 19, 29, 31, 41, 43, 53, 67, 73, 79, 89, 97, 107, 113, 127, 139, 151, 157, 163, 181, 191, 199, 211, 223, 241, 271, 277, 307, 337, 347, 353, 373, 389, 409, 439, 461, 463, 491, 499, 509, 521, 547, 577, 601, 619, 631, 701, 709, 733, 757, 769, 773, 787, 821 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
FORMULA
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)
MATHEMATICA
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}]]
CROSSREFS
Sequence in context: A019412 A178641 A226682 * A032677 A225677 A344477
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Nov 01 2005
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 23 00:47 EDT 2024. Contains 373629 sequences. (Running on oeis4.)