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,1

Links

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

Mathematica

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

Crossrefs

Cf. A074497, A074498, A061715.

Sequence in context: A051562 A330846 A324359 * A267010 A182460 A370318

Adjacent sequences: A074457 A074458 A074459 * A074461 A074462 A074463

Keyword

easy,nonn

Author

Robert G. Wilson v, Aug 22 2002

Status

approved