OFFSET
1,2
COMMENTS
The indices (j,k) where A000217(j) = A051349(k) are (1,1), (7,5), (29,23), (143,123), (911,823), (1457,1327), (2721,2501), (29210,27488), (39547,37295) , (453621,433381) , (1808976,1737137) , (2345107,2253859) , (11133026,10746793), (40338012,39053670), (56646153,54880858) , (84894510,82314170) , (296651209,288273745), (408795555,397457085), (646460121,628975505). - Donovan Johnson, Sep 11 2009
FORMULA
EXAMPLE
MATHEMATICA
Module[{nn=10^7, np}, np=Select[Range[nn], !PrimeQ[#]&]; Intersection[Accumulate[Range[ nn]], Accumulate[ np]]] (* The program generates the first 12 terms of the sequence. *) (* Harvey P. Dale, Feb 08 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava & Giorgio Balzarotti, Jan 16 2009, Jan 19 2009
EXTENSIONS
10256 replaced with 10296 and two more terms added by R. J. Mathar, Jan 21 2009
Extended beyond a(9) by Donovan Johnson, Sep 11 2009
STATUS
approved