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.

A237039 Semiprimes of the form (2*p)^3 + 1, where p is prime.

This page as a plain text file.
%I A237039 #12 Feb 16 2025 08:33:21
%S A237039 65,217,10649,195113,1191017,45882713,55742969,946966169,2106997769,
%T A237039 2289529433,2548895897,10735357817,26946035993,54958685609,
%U A237039 77199941513,131561576057,132495001193,440016501017,456888832409,623273556089,848202406697,966188398457
%N A237039 Semiprimes of the form (2*p)^3 + 1, where p is prime.
%H A237039 Amiram Eldar, <a href="/A237039/b237039.txt">Table of n, a(n) for n = 1..10000</a>
%H A237039 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Semiprime.html">Semiprime</a>.
%H A237039 Wikipedia, <a href="https://en.wikipedia.org/wiki/Semiprime">Semiprime</a>.
%F A237039 a(n) = (2*A237038(n))^3 + 1.
%e A237039 (2*2)^3 + 1 = 65 = 5*13 is a semiprime, so a(1) = 2.
%t A237039 L = Select[Range[5000], PrimeQ[#] && PrimeQ[(2 #)^2 - 2 # + 1] && PrimeQ[2 # + 1] &]; (2 L)^3 + 1
%t A237039 Select[Table[(2p)^3+1,{p,Prime[Range[1000]]}],PrimeOmega[#]==2&] (* _Harvey P. Dale_, Jul 21 2021 *)
%Y A237039 Cf. A001358, A046315, A081256, A096173, A096174, A237037, A237038, A237040.
%K A237039 nonn
%O A237039 1,1
%A A237039 _Jonathan Sondow_, Feb 02 2014