OFFSET
1,1
COMMENTS
See A177025 for number of ways a number can be represented as a polygonal number.
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
data1=Reduce[1/2 n (n(k-2)+4-k)==# && k>=3 && n>0, {k, n}, Integers]&/@Range[1056]; data2=If[Head[#]===And, 1, Length[#]] &/@data1; data3=DeleteCases[Table[If[data2[[k]]==4, k], {k, 1, Length[data2]}], Null]
PROG
(Python)
A195528_list = []
for m in range(1, 10**4):
n, c = 3, 0
while n*(n+1) <= 2*m:
if not 2*(n*(n-2) + m) % (n*(n - 1)):
c += 1
if c > 3:
break
n += 1
if c == 3:
A195528_list.append(m) # Chai Wah Wu, Jul 28 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Ant King, Sep 21 2011
STATUS
approved