A394686 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

No leading zeros allowed.

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

MATHEMATICA

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

(* Alternative: *)

ana[n_]:=FromDigits/@Select[Permutations[IntegerDigits[n]], #[[1]]>0&]; Select[Prime[Range[150]], AnyTrue[#+ana[#], PrimeQ]&] (* Harvey P. Dale, Jul 17 2026 *)

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