cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A094105 Primes of the form prime(k) + 2*prime(k+1).

Original entry on oeis.org

13, 19, 29, 37, 47, 127, 137, 181, 283, 307, 317, 367, 389, 541, 563, 577, 587, 677, 743, 811, 839, 907, 929, 937, 947, 1031, 1093, 1283, 1297, 1453, 1489, 1567, 1801, 1847, 1913, 2027, 2347, 2381, 2467, 2477, 2617, 2647, 2657, 2729, 2749, 2777, 2803, 2819
Offset: 1

Views

Author

Giovanni Teofilatto, May 02 2004

Keywords

Comments

No intersection with A094104 (Primes of the form 2*prime(m)+prime(m+1)): an integer of the form 2*prime(m)+prime(m+1) cannot be of the form prime(n)+2*prime(n+1). - Zak Seidov, Feb 16 2012

Examples

			a(9) = 89 + 2*97 = 283.
		

Crossrefs

Programs

  • Magma
    [a: n in [1..200] | IsPrime(a) where a is NthPrime(n) + 2*NthPrime(n+1)]; // Vincenzo Librandi, Jul 25 2015
  • Mathematica
    f[n_] := (Prime[n] + 2Prime[n + 1]); f[ # ] & /@ Select[Range[160], PrimeQ[f[ # ]] &] (* Robert G. Wilson v, May 07 2004 *)
    Select[#[[1]]+2*#[[2]]&/@Partition[Prime[Range[200]],2,1],PrimeQ] (* Harvey P. Dale, May 08 2015 *)
    Select[Table[Prime[n] + 2 Prime[n + 1], {n, 200}], PrimeQ] (* Vincenzo Librandi, Jul 25 2015 *)
  • PARI
    q=2;forprime(p=3,1000,if(isprime(r=q+2*p),print1(r,","));q=p)
    

Extensions

Corrected and extended by Klaus Brockhaus and Robert G. Wilson v, May 07 2004

A375097 a(n) = prime(n+2) - (prime(n) + prime(n+1))/2.

Original entry on oeis.org

3, 5, 4, 5, 4, 5, 8, 5, 7, 7, 4, 5, 8, 9, 5, 7, 7, 4, 7, 7, 8, 11, 8, 4, 5, 4, 5, 16, 11, 8, 5, 11, 7, 7, 9, 7, 8, 9, 5, 11, 7, 5, 4, 13, 18, 10, 4, 5, 8, 5, 11, 11, 9, 9, 5, 7, 7, 4, 11, 19, 11, 4, 5, 16, 13, 13, 7, 5, 8, 11, 10, 9, 7, 8, 11, 8, 10, 14, 7, 11
Offset: 2

Views

Author

Hugo Pfoertner, Jul 30 2024

Keywords

Crossrefs

Programs

  • Mathematica
    Array[#3 - (#1 + #2)/2 & @@ Prime[{#, # + 1, # + 2}] &, 80, 2] (* Michael De Vlieger, Jul 30 2024 *)
  • PARI
    a(n) = prime(n+2) - (prime(n) + prime(n+1))/2
Showing 1-2 of 2 results.