OFFSET
2,1
COMMENTS
a(3k) = 0. Conjecture: No other term is zero.
Conjecture is false: first counterexample is 4477. See A375938. - Robert Israel, Sep 03 2024
LINKS
Robert Israel, Table of n, a(n) for n = 2..10000
EXAMPLE
a(10) = 73, the partitions of 10 are (1,9), (2,8), (3,7), (4,6), (5,5) and the primes obtained are 19,37 and 73.
MAPLE
f:= proc(n) local L, a, x;
if n mod 3 = 0 then return 0 fi;
L:= sort([seq(tcat(n-a, a), a=1..n-1, 2)], `>`);
for x in L do if isprime(x) then return x fi od;
0
end proc:
map(f, [$2..100]); # Robert Israel, Sep 03 2024
MATHEMATICA
lpc[n_]:=Max[Select[FromDigits[Flatten[IntegerDigits[#]]]&/@(Flatten[{#, Reverse[#]}&/@ IntegerPartitions[ n, {2}], 1]), PrimeQ]]; Array[lpc, 60, 2]/.(-\[Infinity])->0 (* Harvey P. Dale, Aug 02 2024 *)
CROSSREFS
KEYWORD
AUTHOR
Amarnath Murthy, Sep 13 2003
EXTENSIONS
More terms from David Wasserman, Jun 07 2005
STATUS
approved