editing
approved
editing
approved
((#-3)(#-5)(#-7))/48&/@Prime[Range[2, 50]] (* Harvey P. Dale, Jul 10 2024 *)
approved
editing
Table[(p - 3) (p - 5) (p - 7)/48, {p, Prime[Range[2, 50]]}] (* _T. D. Noe, _, Apr 16 2012 *)
editing
approved
(pprime(n)-3)(pprime(n)-5)(pprime(n)-7)/48, as p runs through primes.
3,2,4
T. D. Noe, <a href="/A030003/b030003.txt">Table of n, a(n) for n = 2..1000</a>
0, 0, 0, 4, 10, 35, 56, 120, 286, 364, 680, 969, 1140, 1540, 2300, 3276, 3654, 4960, 5984, 6545, 8436, 9880, 12341, 16215, 18424, 19600, 22100, 23426, 26235, 37820, 41664, 47905, 50116, 62196, 64824, 73150, 82160, 88560, 98770, 109736, 113564, 134044, 138415
It appears that a(n) is a subset of binomial(f(n),3) where f(n)=floor((3*n-7)/3). - Gary Detlefs, Apr 14 2012
Table[(p - 3) (p - 5) (p - 7)/48, {p, Prime[Range[2, 50]]}] (* T. D. Noe, Apr 16 2012 *)
proposed
editing
editing
proposed
It appears that a(n) is a subset of binomial(f(n),3) where f(n)=floor((3*n-7)/3)-Gary Detlefs, Apr 14 2012
approved
editing
_N. J. A. Sloane (njas(AT)research.att.com)_.
nonn,new
nonn
N. J. A. Sloane (njas(AT)research.att.com).