A394686 Primes, p, such that the sum of p and an anagram of itself produce another prime, q.

101, 103, 107, 109, 127, 149, 163, 167, 227, 229, 239, 241, 257, 263, 269, 271, 277, 281, 283, 307, 349, 367, 389, 401, 419, 421, 439, 443, 457, 461, 463, 467, 479, 487, 499, 503, 509, 521, 547, 563, 601, 607, 613, 631, 641, 643, 647, 653, 661, 673, 677, 683, 691, 709, 727, 743

Offset

1,1

Comments

No leading zeros allowed.

Links

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

Mathematica

fQ[p_] := Union[ PrimeQ[ p + Select[ FromDigits /@ Permutations[ IntegerDigits[ p]], # > 10^(IntegerLength[ p] - 1) &]]][[-1]]; Select[ Prime@ Range @135, fQ]

Crossrefs

Cf. A061783, A086002, A394667.

Sequence in context: A327914 A167844 A048528 * A164739 A085821 A183087

Adjacent sequences: A394683 A394684 A394685 * A394687 A394688 A394689

Keyword

base,nonn

Author

Robert G. Wilson v, Mar 28 2026

Status

approved