A380348 Tetraprimes (or products of exactly four distinct prime numbers) that are the sum of two successive tetraprimes.

4785, 11739, 13035, 14685, 17535, 17690, 24115, 24871, 26061, 28203, 33605, 34419, 35061, 37515, 37765, 37851, 38335, 40803, 41205, 48202, 48685, 48895, 49215, 52535, 52955, 55605, 58179, 58245, 59015, 59345, 59595, 62643, 62895, 64785, 66815, 70091, 71205, 71355, 72215

Offset

1,1

Links

Table of n, a(n) for n=1..39.

Example

4785 = 3*5*11*29 is a member because 4785 = 2370+2415, sum of two successive tetraprime numbers.
11739 = 3*7*13*43 is a member because 11739 = 5865+5874, sum of two successive tetraprime numbers.

Mathematica

tetQ[n_] := FactorInteger[n][[;; , 2]] == {1, 1, 1, 1}; Select[MovingMap[Total, Select[Range[40000], tetQ], 1], tetQ] (* Amiram Eldar, Jan 22 2025 *)

Prog

(PARI) ist4(n) = omega(n)==4 && bigomega(n)==4; \\ A046386
lista(nn) = my(v=select(ist4, [1..nn])); select(ist4, vector(#v-1, k, v[k]+v[k+1])); \\ Michel Marcus, Jan 22 2025

Crossrefs

Cf. A001043, A046386, A092192, A380316.

Sequence in context: A237095 A138087 A354086 * A296812 A251775 A096517

Adjacent sequences: A380345 A380346 A380347 * A380349 A380350 A380351

Keyword

nonn,new

Author

Massimo Kofler, Jan 22 2025

Status

approved