A074460 Primes which are sandwiched between two numbers having the same unordered canonical form.

19, 307, 349, 491, 739, 919, 1013, 1061, 1277, 1667, 1747, 2357, 2683, 3259, 3581, 3797, 3943, 4013, 4597, 4877, 4987, 5051, 5741, 6067, 7757, 9349, 9413, 9739, 9851, 9923, 9949, 10133, 10243, 10949, 11093, 11149, 12619, 12941, 12979, 13879, 14051

Offset: 1

Author

Robert G. Wilson v, Aug 22 2002

Keywords

• easy
• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A074497, A074498, A061715.

Subsequence of A067889.

Programs

Mathematica

f[n_] := Flatten[Table[{ # [[2]]}] & /@ FactorInteger[n]]; Prime[ Select[ Range[1700], Sort[ f[ Prime[ # ] - 1]] == Sort[ f[ Prime[ # ] + 1]] & ]]