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.

A343451 Primes in A014342.

This page as a plain text file.
%I A343451 #10 May 07 2025 10:41:31
%S A343451 29,41543,230849,267667,895571,1440449,3171593,3400087,9305809,
%T A343451 9790127,10811683,11905679,17067151,19353953,20161963,25516163,
%U A343451 77893657,82199893,96107729,131707319,164721871,171958543,211522679,266929763,337603949,361747937,393590563,420428507,635794961,752500141
%N A343451 Primes in A014342.
%C A343451 Primes of the form Sum_{i=1..n} prime(i) * prime(n+1-i).
%H A343451 Robert Israel, <a href="/A343451/b343451.txt">Table of n, a(n) for n = 1..1500</a>
%e A343451 For n=3, a(3) = 230849 = A014342(47) is prime.
%p A343451 G:= expand(add(ithprime(i)*x^i,i=1..2000)^2):
%p A343451 select(isprime,[seq(coeff(G,x,i),i=2..2001)]);
%t A343451 Select[Table[With[{p=Prime[Range[n]]},ListConvolve[p,p]],{n,500}]//Flatten,PrimeQ] (* _Harvey P. Dale_, May 07 2025 *)
%Y A343451 Cf. A014342.
%K A343451 nonn
%O A343451 1,1
%A A343451 _J. M. Bergot_ and _Robert Israel_, Apr 15 2021