# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/
Search: id:a191764
Showing 1-1 of 1
%I A191764 #12 Mar 30 2012 18:41:05
%S A191764 6,42,72,156,210,342,420,702,930,1056,1332,1806,1980,2352,2550,2970,
%T A191764 3192,3906,4692,5256,5550,6162,7140,7482,8190,8556,9312,9702,10506,
%U A191764 12210,13110,13572,14520,16512,17556,18090,19182,19740,20880,21462,23256,24492,25122,26406,28392,30450,31152,33306,34782,35532,37830
%N A191764 Integers that do not have a partition into a sum of an odd square and two (not necessarily distinct) triangular numbers.
%C A191764 Oh & Sun have proved that a natural number cannot be partitioned into a sum of an odd square and two triangular numbers if and only if it is a pronic number A002378 (m) such that 2m+1 does not have any prime divisors that are congruent to 3 (mod 4).
%H A191764 Donovan Johnson, Table of n, a(n) for n = 1..1000
%H A191764 Byeong-Kweon Oh and Zhi-Wei Sun, Mixed sums of square and triangular numbers (III), Journal of Number Theory 129:4, (2009), pp. 964-969.
%e A191764 The fifth integer that does not have a partition into a sum of an odd square and two triangular numbers is 210. Hence a(5)=210. Similarly, 21 is not in the sequence as it has a unique representation as A000290(3)+A000217(3)+A000217(3)
%t A191764 data=Length[FindInstance[(2x+1)^2+1/2 y (y+1)+1/2 z (z+1)==# && 0<=x<=# && 0<=y<=# && 0<=z<=#,{x,y,z},Integers]]&/@Range[10000];Position[data,0]//Flatten
%o A191764 (PARI)
%o A191764 N=10^5; /* upper bound */
%o A191764 x='x+O('x^N);
%o A191764 S=2*ceil(sqrt(N));
%o A191764 tr=sum(n=0,S,x^(n*(n+1)/2)); /* triangular incl. zero */
%o A191764 sq=sum(n=1,S,x^((2*n-1)^2)); /* odd squares */
%o A191764 f=tr^2*sq + 't /* symbol t to have vector aligned */
%o A191764 v=Vec(f);
%o A191764 for(n=1,#v,if(v[n]==0,print1(n-1,", ")));
%o A191764 /* Joerg Arndt, Jul 06 2011 */
%Y A191764 Cf. A002378, A016754, A000217.
%K A191764 nonn,easy
%O A191764 1,1
%A A191764 _Ant King_, Jun 22 2011
# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE