A052467 Binomial transform of {b(n)}, where b(n)=1 for prime n and b(n)=0 otherwise.
0, 1, 3, 6, 11, 20, 37, 70, 134, 255, 476, 869, 1564, 2821, 5201, 9948, 19793, 40562, 84271, 174952, 359576, 728805, 1457402, 2885051, 5681277, 11185110, 22103926, 43939533, 87864092, 176447165, 354929146, 713198803, 1428312446, 2846268351
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n = 1..1000
- Eric Weisstein's World of Mathematics, Binomial Transform.
Programs
-
Mathematica
b[n_] := Boole[ PrimeQ[n]]; a[n_] := Sum[ Binomial[n, k]*b[k], {k, 0, n}]; Table[a[n], {n, 0, 34}] // Differences (* Jean-François Alcover, Oct 25 2012 *)
Formula
G.f.: Sum_{k>=1} (x/(1 - x))^prime(k). - Ilya Gutkovskiy, Dec 28 2016
Extensions
More terms from David Wasserman, Feb 25 2002
Description corrected by T. D. Noe, May 17 2003
Comments