A394667 Integers which can be written as the sum of a prime and an anagram of that prime.

4, 6, 10, 14, 22, 26, 34, 38, 44, 46, 55, 58, 62, 74, 77, 82, 86, 88, 94, 106, 110, 118, 121, 122, 134, 142, 143, 146, 154, 158, 166, 176, 178, 187, 194, 202, 206, 211, 214, 218, 226, 233, 244, 254, 262, 266, 274, 277, 278, 298, 299, 302, 310, 314, 323, 326, 332, 334, 343, 344

Offset

1,1

Comments

Leading zeros are not allowed.

Obviously, all numbers which are twice a prime, A100484, are in the sequence.

Links

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

Example

14 is a member of this sequence since it is equal to 7 + 7;
44 is a member of this sequence since it is equal to 13 + 31;
128 is not a member even though 109 + 19 = 128; etc.

Mathematica

fQ[n_] := Block[{c = 0, m = 1, pn = 1 + PrimePi[ n]}, While[m < pn, p = Prime[ m]; If[ MemberQ[ p + Select[ FromDigits /@ Permutations[ IntegerDigits[ p]], # > 10^(IntegerLength[ p] - 1) &], n], Break[]]; m++]; m < pn]; Select[ Range@ 345, fQ]

Crossrefs

Cf. A100484, A393958, A392563.

Sequence in context: A184335 A243428 A091376 * A363134 A100484 A076924

Adjacent sequences: A394663 A394664 A394666 * A394668 A394669 A394670

Keyword

base,nonn

Author

Robert G. Wilson v, Mar 28 2026

Status

approved