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
Keywords
Examples
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.
Programs
-
Mathematica
tetQ[n_] := FactorInteger[n][[;; , 2]] == {1, 1, 1, 1}; Select[MovingMap[Total, Select[Range[40000], tetQ], 1], tetQ] (* Amiram Eldar, Jan 22 2025 *) -
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