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 A380348 #12 Feb 07 2025 00:47:46
%S A380348 4785,11739,13035,14685,17535,17690,24115,24871,26061,28203,33605,
%T A380348 34419,35061,37515,37765,37851,38335,40803,41205,48202,48685,48895,
%U A380348 49215,52535,52955,55605,58179,58245,59015,59345,59595,62643,62895,64785,66815,70091,71205,71355,72215
%N A380348 Tetraprimes (or products of exactly four distinct prime numbers) that are the sum of two successive tetraprimes.
%e A380348 4785 = 3*5*11*29 is a member because 4785 = 2370+2415, sum of two successive tetraprime numbers.
%e A380348 11739 = 3*7*13*43 is a member because 11739 = 5865+5874, sum of two successive tetraprime numbers.
%t A380348 tetQ[n_] := FactorInteger[n][[;; , 2]] == {1, 1, 1, 1}; Select[MovingMap[Total, Select[Range[40000], tetQ], 1], tetQ] (* _Amiram Eldar_, Jan 22 2025 *)
%o A380348 (PARI) ist4(n) = omega(n)==4 && bigomega(n)==4; \\ A046386
%o A380348 lista(nn) = my(v=select(ist4, [1..nn])); select(ist4, vector(#v-1, k, v[k]+v[k+1])); \\ _Michel Marcus_, Jan 22 2025
%Y A380348 Cf. A001043, A046386, A092192, A380316.
%K A380348 nonn
%O A380348 1,1
%A A380348 _Massimo Kofler_, Jan 22 2025