Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A090764
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A090764 a(n) = Sum_{pi = partition of n} 2^{number of 1's in pi}. +0
1
2, 5, 11, 24, 50, 104, 212, 431, 870, 1752, 3518, 7057, 14138, 28310, 56661, 113377, 226820, 453728, 907561, 1815259, 3630683, 7261576, 14523405, 29047130, 58094643, 116189764, 232380102, 464760912, 929522671, 1859046381, 3718094000 (list; graph; listen)
OFFSET

1,1

FORMULA

G.f.: (1/(1-2*x))*Product_{m>=2} 1/(1-x^m). - Vladeta Jovovic (vladeta(AT)eunet.rs), Feb 04 2004

EXAMPLE

a(4)=24 because the partitions of 4 are 4(1), 31(2), 22(1), 211(4) and 1111(16). 1+2+1+4+16=24.

MATHEMATICA

first Needs["DiscreteMath`Combinatorica`"], then c[n_] := Count[n, 1]; f[n_] := Apply[ Plus, 2^ Map[ c, Partitions[n]]]; Table[ f[n], {n, 1, 31}] (from Robert G. Wilson v Feb 12 2004)

PROGRAM

(Java) import java.math.*; import java.io.*; public class A090764 { public static final int LIMIT = 80; public static final BigInteger TWO = new BigInteger("2"); public static void main(String[] args) throws Exception {BigInteger[] a = new BigInteger[LIMIT];

int i, j; PrintStream out = new PrintStream(new FileOutputStream("A090764.txt")); a[0] = BigInteger.ONE; for (i = 1; i < LIMIT; i++)a[i] = a[i - 1].multiply(TWO); for (j = 2; j < LIMIT; j++)for (i = j; i < LIMIT; i++)

a[i] = a[i - 1].multiply(TWO); for (j = 2; j < LIMIT; j++)for (i = j; i < LIMIT; i++) a[i] = a[i].add(a[i - j]); for (i = 0; i < LIMIT; i++)out.print(a[i] + " "); out.print(" "); }} (David Wasserman)

CROSSREFS

Sequence in context: A091359 A059776 A091360 this_sequence A027934 A134389 A111297

Adjacent sequences: A090761 A090762 A090763 this_sequence A090765 A090766 A090767

KEYWORD

nonn

AUTHOR

Jon Perry (perry(AT)globalnet.co.uk), Feb 01 2004

EXTENSIONS

More terms from David Wasserman (wasserma(AT)spawar.navy.mil), Feb 10 2004

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified December 8 08:31 EST 2009. Contains 170430 sequences.


AT&T Labs Research