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.
%I A286217 #23 Oct 13 2024 13:27:18
%S A286217 1729,11339,49321,146969,386389,1089019,1221191,3864241,5171489,
%T A286217 12640949,18181979,21243961,43974269,51881689,178433279,208506509,
%U A286217 230324329,278421569,393806449,849244031,932539661,1341880019,1416207439,1672403471,1829232539,2111885999
%N A286217 Product of the n-th sexy prime triple.
%C A286217 A sexy prime triple is such that p, p+6, and p+12 are primes but p+18 is not a prime. - _Harvey P. Dale_, Oct 13 2024
%H A286217 Harvey P. Dale, <a href="/A286217/b286217.txt">Table of n, a(n) for n = 1..1000</a>
%H A286217 Wikipedia, <a href="https://en.wikipedia.org/wiki/Sexy_prime">Sexy Prime</a>
%F A286217 a(n) = s(n)*(s(n)+6)*(s(n)+12), where s = A046118.
%F A286217 a(n) = A046118(n) * A046119(n) * A046120(n).
%e A286217 The first sexy prime triple is (7, 13, 19) so a(1) = 7*13*19 = 1729.
%t A286217 Select[Prime@ Range@ 500, PrimeQ[# + {6, 12, 18}] == {True, True, False} &] // # (#+6) (#+12) & (* _Giovanni Resta_, May 05 2017 *)
%t A286217 Times@@Take[#,3]&/@(Select[Table[p+{0,6,12,18},{p,Prime[Range[250]]}],Boole[PrimeQ[#]]=={1,1,1,0}&]) (* _Harvey P. Dale_, Oct 13 2024 *)
%Y A286217 Cf. A023201, A046118, A046119, A046120.
%K A286217 nonn,easy
%O A286217 1,1
%A A286217 _Connor Zapfel_, May 04 2017