A337861 Numbers that can be written as the sum of two Moran numbers (see A001101).

36, 39, 42, 45, 48, 54, 60, 63, 66, 69, 72, 81, 84, 87, 90, 102, 105, 108, 111, 126, 129, 132, 135, 138, 141, 144, 147, 151, 153, 154, 156, 159, 160, 162, 168, 170, 171, 173, 174, 175, 177, 178, 179, 180, 183, 189, 192, 194, 195, 196, 197, 198, 201, 208, 211

Offset

1,1

Links

Table of n, a(n) for n=1..55.

Example

36 = 18 + 18 = A001101(1) + A001101(1), so 36 is a term.
39 = 18 + 21 = A001101(1) + A001101(2), so 39 is a term.
87 = 42 + 45 = A001101(4) + A001101(5), so 87 is a term.

Mathematica

m = 211; morans = Select[Range[m], PrimeQ[#/Plus @@ IntegerDigits[#]] &]; Select[Range[m], Length[IntegerPartitions[#, {2}, morans]] > 0 &] (* Amiram Eldar, Oct 21 2020 *)

Prog

(Magma) moran:=func<n|n mod &+Intseq(n) eq 0  and IsPrime( n div &+Intseq(n))>; [n:n in [1..220] | #RestrictedPartitions(n, 2, {k:k in [1..n-1] | moran(k)}) ne 0];

Crossrefs

Cf. A001101, A005349, A337853.

Sequence in context: A257441 A181457 A261380 * A261373 A248372 A349705

Adjacent sequences: A337858 A337859 A337860 * A337862 A337863 A337864

Keyword

nonn,base

Author

Marius A. Burtea, Oct 21 2020

Status

approved