%I #14 Jul 01 2018 18:52:31
%S 1,4,3,12,6,30,10,50,15,60,21,84,28,140,36,180,45,180,55,220,66,330,
%T 78,390,91,364,105,420,120,600,136,680,153,612,171,684,190,950,210,
%U 1050,231,924,253,1012,276,1380,300,1500,325,1300,351,1404,378,1890,406
%N A000217 interleaved with A061726.
%D Norman Sullivan, Test Your Own IQ, Workman Publishing Co. New York, NY, 1994, pp. 48, 50.
%H Harry J. Smith, <a href="/A061727/b061727.txt">Table of n, a(n) for n = 1..2000</a>
%t Array[{#, (4 + Boole[EvenQ@ #]) #} &@ PolygonalNumber@ # &, 28] // Flatten (* _Michael De Vlieger_, Jul 01 2018 *)
%o (PARI) { f="b061727.txt"; for (n=1, 1000, a=n*(n + 1)/2; if (a%2, t=a*4, t=a*5); write(f, 2*n - 1, " ", a); write(f, 2*n, " ", t) ) } \\ _Harry J. Smith_, Jul 27 2009
%Y Cf. A000217, A061726.
%K nonn,dumb,easy
%O 1,2
%A _Jason Earls_, May 05 2001
%E More terms from _David Wasserman_, Jun 25 2002