|
%I #15 Jul 28 2016 21:15:40
%S 6,9,10,12,16,18,22,24,25,27,30,33,34,35,39,40,42,46,48,49,52,54,57,
%T 58,60,63,65,69,72,76,82,84,85,87,88,90,92,93,94,95,99,102,106,108,
%U 114,115,118,121,123,124,125,129,130,132,133,138,142,147,150,155,159,160,162,166,168
%N Numbers that have exactly two different representations as polygonal numbers.
%C Numbers that have only A177025(.)=1 representation are listed by A090467.
%H Chai Wah Wu, <a href="/A177029/b177029.txt">Table of n, a(n) for n = 1..10000</a>
%F {m: A177025(m)=2}.
%e 6 is a triangular and a hexagonal number, but is not any other k-gonal number.
%o (PARI) lista(nn) = {for (n=1, nn, if (sum(k=3, n, ispolygonal(n, k)) == 2, print1(n, ", ")););} \\ _Michel Marcus_, Mar 25 2015
%o (Python)
%o A177029_list = []
%o for m in range(1,10**4):
%o n, c = 3, 0
%o while n*(n+1) <= 2*m:
%o if not 2*(n*(n-2) + m) % (n*(n - 1)):
%o c += 1
%o if c > 1:
%o break
%o n += 1
%o if c == 1:
%o A177029_list.append(m) # _Chai Wah Wu_, Jul 28 2016
%Y Cf. A177025, A090467, A177028, A000217, A000326, A000384, A000566, A000567, A176949, A176948, A176774, A176744, A176747, A176775, A175873, A176874.
%K nonn
%O 1,1
%A _Vladimir Shevelev_, May 01 2010
%E Extended by _R. J. Mathar_, Aug 15 2010
|
