login
This site is supported by donations to The OEIS Foundation.
Logo

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A088534 Number of representations of n by the quadratic form x^2+xy+y^2 with 0<=x<=y. 11
1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 2, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0 (list; graph; refs; listen; history; internal format)
OFFSET

0,50

COMMENTS

a(A118886(n)) > 1; A198772(a(n)) = 1; A198773(a(n)) = 2; A198774(a(n)) = 3; A198775(a(n)) = 4; a(A198799(n)) = n and a(m) <> n for m < A198799(n). [Reinhard Zumkeller, Oct 30 2011]

REFERENCES

B. C. Berndt,"On a certain theta-function in a letter of Ramanujan from Fitzroy House", Ganita 43 (1992),33-43

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

FORMULA

a(A003136(n))>0; a(A034020(n))=0

PROG

(PARI) a(n)=sum(i=0, n, sum(j=0, i, if(i^2+i*j+j^2-n, 0, 1)))

(Haskell)

a088534 n = length

   [(x, y) | y <- [0..a000196 n], x <- [0..y], x^2 + x*y + y^2 == n]

a088534_list = map a088534 [0..]

-- Reinhard Zumkeller, Oct 30 2011

CROSSREFS

Cf. A003136, A034020.

Cf. A000196.

Sequence in context: A025444 A092575 A065335 * A178602 A025441 A176891

Adjacent sequences:  A088531 A088532 A088533 * A088535 A088536 A088537

KEYWORD

nonn

AUTHOR

Benoit Cloitre (benoit7848c(AT)orange.fr), Nov 16 2003

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 14 08:49 EST 2012. Contains 205614 sequences.