login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A194831 Records in the number of ways to express an odd number as a sum 2*p+q, with p, q primes. 3
1, 2, 4, 5, 6, 7, 8, 11, 12, 13, 14, 16, 21, 22, 26, 27, 31, 32, 35, 43, 48, 52, 65, 77, 87, 101, 104, 115, 128, 133, 146, 155, 169, 180, 188, 194, 196, 201, 209, 225, 228, 248, 250, 282, 286, 325, 332, 359, 391, 400, 443, 449, 470, 555, 579, 582, 679, 741 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Records in A046927. The growth rate of this sequence makes the slow growth of A194829 plausible, i.e. 2*n+1 can be represented by 2*p+q with q<<p.

REFERENCES

See A046927.

LINKS

Hugo Pfoertner, Table of n, a(n) for n = 1..322

EXAMPLE

a(1)=1: A194830(1)=7 has 1 representation 7=2*2+3; a(2)=2 representations of A194830(2)=9=2*2+5=2*3+3; a(3)=4 representations of A194830(3)=17=2*2+13=2*3+11=2*5+7=2*7+3.

MATHEMATICA

ways[n_] := ways[n] = (w = 0; Do[ p = 2k + 1; q = n - k; If[PrimeQ[p] && PrimeQ[q], w++], {k, 1, n}]; w); record = 0; A194831 = Reap[Do[If[ways[n] > record, record = ways[n]; Print["2n+1 = ", 2n + 1, " record = ", record]; Sow[{ways[n], n}]], {n, 0, 12000}]][[2, 1]][[All, 1]] (* Jean-Fran├žois Alcover, Dec 05 2012 *)

CROSSREFS

Cf. A194830 [record-setting numbers], A046927, A194828, A194829.

Sequence in context: A049095 A324583 A101742 * A111688 A058049 A091871

Adjacent sequences:  A194828 A194829 A194830 * A194832 A194833 A194834

KEYWORD

nonn

AUTHOR

Hugo Pfoertner, Sep 12 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 15 02:47 EDT 2022. Contains 356122 sequences. (Running on oeis4.)