0,2

T. D. Noe, Table of n, a(n) for n = 0..5000

f[n_] := Length[ Select[2n - Prime[ Range[ PrimePi[n]]], PrimeQ]]; a = Table[0, {75}]; Do[c = f[n]; If[c < 75, a[[c + 1]]++ ], {n, 5000}]; a (* Robert G. Wilson v, using Paul Abbott's coding in A002375, Apr 07 2005 *)

Cf. A000954, A001172, A002375.

Sequence in context: A220427 A115675 A115668 * A291626 A312833 A243651

Adjacent sequences: A000971 A000972 A000973 * A000975 A000976 A000977

nonn

Bill Gosper

approved