login
Numbers k such that the k-th hexagonal number is a 5-almost prime.
1

%I #23 Oct 06 2024 09:14:15

%S 8,14,16,18,20,24,28,36,38,40,41,44,54,74,77,78,84,86,90,92,100,102,

%T 105,110,113,123,124,125,126,130,132,135,136,143,148,149,153,156,164,

%U 165,170,171,184,185,186,194,207,210,213,215,218,220,225,232,234,236

%N Numbers k such that the k-th hexagonal number is a 5-almost prime.

%C There are no prime hexagonal numbers. The k-th hexagonal number A000384(k) = k*(2*k-1) is semiprime iff both k and 2*k-1 are primes iff A000384(k) is an element of A001358 iff k is an element of A005382.

%H Amiram Eldar, <a href="/A114456/b114456.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/AlmostPrime.html">Almost Prime</a>.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/HexagonalNumber.html">Hexagonal Number</a>.

%F Numbers k such that hexagonal number A000384(k) is an element of A014614.

%F Numbers k such that A001222(A000384(k)) = 5.

%F Numbers k such that A001222(k*(2*k-1)) = 5.

%e a(1) = 8 because HexagonalNumber(8) = H(8) = 8*(2*8-1) = 120 = 2^3 * 3 * 5 is a 5-almost prime.

%e a(2) = 14 because H(14) = 14*(2*14-1) = 378 = 2 * 3^3 * 7 is a 5-almost prime.

%e a(3) = 18 because H(18) = 18*(2*18-1) = 630 = 2 * 3^2 * 5 * 7 is a 5-almost prime.

%e a(20) = 100 because H(100) = 100*(2*100-1) = 19900 = 2^2 * 5^2 * 199 is a 5-almost prime.

%t Select[Range[300], PrimeOmega[#*(2*# - 1)] == 5 &] (* _Giovanni Resta_, Jun 14 2016 *)

%t Select[Range[300],PrimeOmega[PolygonalNumber[6,#]]==5&] (* _Harvey P. Dale_, Jan 15 2023 *)

%Y Cf. A000384, A001222, A014614.

%K easy,nonn

%O 1,1

%A _Jonathan Vos Post_, Feb 14 2006

%E Missing a(3)=16 and more terms from _Giovanni Resta_, Jun 14 2016