OFFSET
1,1
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = min({m >= 1 : A117929(m) = n}). - Peter Munn, May 01 2023
EXAMPLE
a(2)=16 because we have 16=3+13=5+11, followed by 18=5+13=7+11; 20=3+17=7+13; 22=3+19=5+17; 26=3+23=7+19;...
MATHEMATICA
Module[{nn=2000, ip}, ip=Table[{n, Length[Select[IntegerPartitions[n, {2}], #[[1]]!=#[[2]]&&AllTrue[#, PrimeQ]&]]}, {n, nn}]; Table[SelectFirst[ip, #[[2]]==k&], {k, 60}]][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 11 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Oct 02 2003
EXTENSIONS
More terms from John Dethridge (jcd(AT)ms.unimelb.edu.au), Jan 08 2004
More terms from Hugo Pfoertner, Sep 23 2004
Reinserted a(18), a(19) and a(20) by Paolo P. Lava, May 26 2014
STATUS
approved