The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A240675

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A240675

Number of partitions p of n such that exactly one number is in both p and its conjugate.
(history; published version)

#12 by Bruno Berselli at Fri Jun 05 08:28:37 EDT 2015

STATUS

reviewed

approved

#11 by Joerg Arndt at Fri Jun 05 08:18:16 EDT 2015

STATUS

proposed

reviewed

#10 by Michel Marcus at Tue Jun 02 02:38:24 EDT 2015

STATUS

editing

proposed

#9 by Michel Marcus at Tue Jun 02 02:36:47 EDT 2015

PROG

(PARI) conjug(v) = {my(m = matrix(#v, vecmax(v))); for (i=1, #v, for (j=1, v[i], m[i, j] = 1; ); ); vector(vecmax(v), i, sum(j=1, #v, m[j, i])); }

a(n) = {my(v = partitions(n)); my(nb = 0); for (k=1, #v, if (#setintersect(Set(v[k]), Set(conjug(v[k]))) == 1, nb++); ); nb; } \\ Michel Marcus, Jun 02 2015

STATUS

proposed

editing

Discussion

Tue Jun 02

02:38

Michel Marcus: Probably pari script I wrote can be improved

#8 by Michel Marcus at Tue Jun 02 01:56:12 EDT 2015

STATUS

editing

proposed

#7 by Michel Marcus at Tue Jun 02 01:56:03 EDT 2015

NAME

Number of partitions p of n such that exactly one number is in both p and its conjugate.

STATUS

proposed

editing

#6 by Manfred Scheucher at Mon Jun 01 17:09:51 EDT 2015

STATUS

editing

proposed

#5 by Manfred Scheucher at Mon Jun 01 15:07:34 EDT 2015

DATA

1, 0, 0, 3, 4, 6, 8, 8, 9, 22, 22, 34, 50, 60, 74, 105, 120, 144, 186, 234, 280, 358, 440, 524, 665, 782, 954, 1150, 1354, 1630, 1944, 2258, 2666, 3170, 3728, 4365, 5128, 5976, 6978, 8144, 9488, 10952, 12700, 14716, 16932, 19558, 22434, 25764, 29505, 33782

LINKS

Manfred Scheucher, <a href="/A240675/b240675.txt">Table of n, a(n) for n = 1..65</a>

Manfred Scheucher, <a href="/A240675/a240675.sage.txt">Sage Script</a>

KEYWORD

nonn,easy,more

EXTENSIONS

More terms from Manfred Scheucher, Jun 01 2015

STATUS

approved

editing

#4 by N. J. A. Sloane at Tue Apr 22 01:25:43 EDT 2014

STATUS

proposed

approved

#3 by Clark Kimberling at Fri Apr 18 09:09:36 EDT 2014

STATUS

editing

proposed