This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A321152 #36 Dec 28 2018 23:25:35
%S A321152 2,3,4,5,6,8,10,12,14,16,18,20,24,36,48,60,72,84,96,120
%N A321152 n such that all n - p are practical numbers where p is a practical number in range n/2 <= p < n.
%C A321152 The following is a quotation from Hage-Hassan in his paper (see Link below). "The (concept of) right and left symmetry is fundamental in physics. This incites us to ask whether this symmetry is in (the) primes. Find the numbers n with a + a' = n. a, a' are primes and {a} are all the primes with: n/2 <= a < n and n = 2,3, ..."
%C A321152 This sequence is analogous to A320447. Instead of the sequence of primes it uses the sequence of practical numbers (A005153). It is conjectured that the sequence is finite and full.
%H A321152 Mehdi Hage-Hassan, <a href="https://hal.archives-ouvertes.fr/hal-00879586/document">An elementary introduction to Quantum mechanic</a>, hal-00879586 2013 pp 58.
%e A321152 a(13)=24, because the practical numbers p in the range 12 <= p < 24 are {12, 16, 18, 20}. Also the complementary set {12, 8, 6, 4} has all its members practical numbers. This is the 13th occurrence of such a number.
%t A321152 PracticalQ[n_] := Module[{f, p, e, prod=1, ok=True}, If[n<1||(n>1&&OddQ[n]), False, If[n==1, True, f=FactorInteger[n]; {p, e}=Transpose[f]; Do[If[p[[i]]>1+DivisorSigma[1, prod], ok=False; Break[]]; prod=prod*p[[i]]^e[[i]], {i, Length[p]}]; ok]]];
%t A321152 plst[n_] := Select[Range[Ceiling[n/2], n-1], PracticalQ]; lst={}; Do[If[plst[n]!={}&&AllTrue[n-plst[n], PracticalQ], AppendTo[lst, n]], {n, 1, 10000}]; lst
%Y A321152 Cf. A005153, A320447.
%K A321152 nonn,more
%O A321152 1,1
%A A321152 _Frank M Jackson_, Dec 18 2018