The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A074997 Numbers which are sandwiched between two numbers having the same unordered canonical form. 8
 4, 6, 12, 18, 19, 30, 34, 42, 51, 55, 56, 60, 72, 86, 92, 94, 102, 108, 138, 142, 144, 150, 160, 180, 184, 186, 192, 198, 202, 204, 214, 216, 218, 220, 228, 236, 240, 243, 248, 249, 266, 270, 282, 300, 302, 304, 307, 312, 320, 322, 328, 340, 341, 348, 349, 392 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS The average of twin primes is a member. LINKS Amiram Eldar, Table of n, a(n) for n = 1..10000 EXAMPLE 19 is sandwiched between 18 and 20 which are of the form p^2*q where p and q are primes. MAPLE k := 0: for j from 2 to 5000 do a := ifactors(j-1): b := ifactors(j+1): if sort([seq(a[2][i][2], i= 1..nops(a[2]))])= sort([seq(b[2][i][2], i= 1..nops(b[2]))]) then k := k+1: c[k] := j: fi: od: seq(c[i], i= 1..k); MATHEMATICA f[n_] := Flatten[Table[{ # [[2]]}] & /@ FactorInteger[n]]; Drop[ Select[ Range[415], Sort[f[ # - 1]] == Sort[f[ # + 1]] & ], 1] PROG (PARI) isok(n) = vecsort(factor(n-1)[, 2]) == vecsort(factor(n+1)[, 2]); \\ Michel Marcus, Jul 28 2015 CROSSREFS Cf. A074998, A061715, A074460. Sequence in context: A022802 A301166 A310599 * A280383 A045959 A310600 Adjacent sequences:  A074994 A074995 A074996 * A074998 A074999 A075000 KEYWORD nonn AUTHOR Amarnath Murthy, Aug 21 2002 EXTENSIONS More terms from Sascha Kurz and Robert G. Wilson v, Aug 22 2002 Offset set to 1 by Michel Marcus, Jul 28 2015 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 20 11:57 EDT 2021. Contains 345164 sequences. (Running on oeis4.)