OFFSET
1,1
COMMENTS
A squarefree subsequence of 11-gonal numbers.
EXAMPLE
30 = 3*(9*3 - 7)/2 = 2 * 3 * 5;
506 = 11*(9*11 - 7)/2 = 2 * 11 * 23;
3945 = 30*(9*30 - 7)/2 = 3 * 5 * 263;
80333 = 134*(9*134 - 7)/2 = 11 * 67 * 109.
MAPLE
q:= n-> is(map(x-> x[2], ifactors(n)[2])=[1$3]):
select(q, [n*(9*n-7)/2$n=1..200])[]; # Alois P. Heinz, Jun 15 2022
MATHEMATICA
Select[Table[n*(9*n-7)/2, {n, 1, 150}], FactorInteger[#][[;; , 2]]=={1, 1, 1} &] (* Amiram Eldar, Jun 01 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Jun 01 2022
STATUS
approved