OFFSET
1,6
MATHEMATICA
With[{nn = 56}, Differences@ Union@ Flatten@ {#, 2 TakeWhile[#, # < Prime[nn]/2 &]} &@ Prime@ Range@ nn]
PROG
(PARI) lista(nn) = {last = 2; for (n=3, nn, if (isprime(n) || (!(n%2) && isprime(n/2)), print1(n - last, ", "); last = n; ); ); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Aug 04 2017
STATUS
approved