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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A240127 Number of partitions of n such that the sum of squares of the parts is a square. 2
1, 1, 1, 2, 2, 1, 3, 3, 3, 5, 5, 6, 10, 9, 10, 17, 20, 18, 31, 34, 38, 52, 62, 65, 98, 108, 113, 160, 190, 204, 271, 322, 352, 448, 533, 572, 757, 863, 956, 1208, 1401, 1555, 1931, 2242, 2499, 3034, 3527, 3938, 4772, 5529, 6108, 7368, 8524, 9478, 11301 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,4

LINKS

Charles R Greathouse IV, Table of n, a(n) for n = 1..100

EXAMPLE

a(12) counts these 6 partitions: [12], [5,2,2,1,1,1], [4,4,1,1,1,1], [4,3,3,1,1], [3,3,3,3], [2,2,1,1,1,1,1,1,1,1].

MATHEMATICA

f[x_] := x^(1/2); z = 26; ColumnForm[t = Map[Select[IntegerPartitions[#], IntegerQ[f[Total[#^2]]] &] &, Range[z]] ](* shows the partitions *)

t2 = Map[Length[Select[IntegerPartitions[#], IntegerQ[f[Total[#^2]]] &]] &, Range[40]] (* A240127 *) (* Peter J. C. Moses, Apr 01 2014 *)

PROG

(PARI) a(n)=my(s); forpart(v=n, s+=issquare(sum(i=1, #v, v[i]^2))); s \\ Charles R Greathouse IV, Mar 06 2017

CROSSREFS

Cf. A240128.

Sequence in context: A091224 A112182 A112209 * A109524 A191521 A245370

Adjacent sequences:  A240124 A240125 A240126 * A240128 A240129 A240130

KEYWORD

nonn

AUTHOR

Clark Kimberling, Apr 02 2014

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy .

Last modified June 28 20:31 EDT 2017. Contains 288840 sequences.