OFFSET
1,1
COMMENTS
A squarefree subsequence of heptagonal numbers.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
286 = 2*11*13 = 11(5*11-3)/2.
1918 = 2*7*137 = 28(5*28-3)/2.
8323 = 7*29*41 = 58(5*58-3)/2.
42055 = 5*13*647 = 130(5*130-3)/2.
MATHEMATICA
Select[Table[n*(5*n - 3)/2, {n, 1, 210}], FactorInteger[#][[;; , 2]] == {1, 1, 1} &] (* Amiram Eldar, Aug 07 2022 *)
Select[PolygonalNumber[7, Range[250]], PrimeNu[#]==PrimeOmega[#]==3&] (* Harvey P. Dale, Feb 06 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Aug 07 2022
STATUS
approved
