login
A000217 interleaved with A061726.
2

%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