OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
66 = 2*3*11 is the product of 3 distinct primes and the 6th hexagonal number hex(6) = 6*(2*6-1).
231 = 3*7*11 is the product of 3 distinct primes and the 11th hexagonal number hex(11) = 11*(2*11-1).
MATHEMATICA
semiQ[k_] := FactorInteger[k][[;; , 2]] == {1, 1}; q[k_] := (PrimeQ[k] && semiQ[2*k - 1]) || (PrimeQ[2*k - 1] && semiQ[k]); Table[k*(2*k - 1), {k, Select[Range[250], q]}] (* Amiram Eldar, Jan 08 2025 *)
CROSSREFS
KEYWORD
nonn,new
AUTHOR
Massimo Kofler, Jan 08 2025
STATUS
approved