The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #6 Jan 02 2020 04:14:55
%S 19,307,349,491,739,919,1013,1061,1277,1667,1747,2357,2683,3259,3581,
%T 3797,3943,4013,4597,4877,4987,5051,5741,6067,7757,9349,9413,9739,
%U 9851,9923,9949,10133,10243,10949,11093,11149,12619,12941,12979,13879,14051
%N Primes which are sandwiched between two numbers having the same unordered canonical form.
%H Amiram Eldar, <a href="/A074460/b074460.txt">Table of n, a(n) for n = 1..10000</a>
%t f[n_] := Flatten[Table[{ # [[2]]}] & /@ FactorInteger[n]]; Prime[ Select[ Range[1700], Sort[ f[ Prime[ # ] - 1]] == Sort[ f[ Prime[ # ] + 1]] & ]]
%Y Cf. A074497, A074498, A061715.
%K easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Aug 22 2002