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!)
 A340306 Numbers k such that A065642(k) = A081761(k). 0
 12, 420, 540, 2268, 7020, 10692, 11340, 17640, 24948, 42750, 56700, 87120, 152460, 409500, 413100, 609840, 996072, 2478600, 3822000, 5287500, 9189180, 9447840, 14871600, 20241900, 20567520, 23510592, 23832800, 27766152, 28552500, 39358800, 41135040, 44783648, 49985100 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Numbers k such that the least number that is larger than k and has the same prime signature as k and the least number that is larger than k and has the same set of distinct prime divisors as k are equal. LINKS EXAMPLE 12 is a term since the A065642(12) = A081761(12) = 18, i.e., 18 = 2 * 3^2 is the least number with the same set of prime divisors, {2, 3}, and the same prime signature as 12 = 2^2 * 3. MATHEMATICA rad[n_] := Times @@ FactorInteger[n][[;; , 1]]; next[n_] := Module[{r = rad[n]}, SelectFirst[Range[n + 1, n^2], rad[#] == r &]]; sig[n_] := Sort@FactorInteger[n][[;; , 2]]; nextsig[n_] := Module[{sign = sig[n], k = n + 1}, While[sig[k] != sign, k++]; k]; Select[Range[2, 600], sig[#] == sig[next[#]] && rad[#] == rad[nextsig[#]] &] CROSSREFS Intersection of A340302 and A340305. Cf. A065642, A081761. Sequence in context: A197038 A282883 A163971 * A249065 A098602 A000897 Adjacent sequences:  A340303 A340304 A340305 * A340307 A340308 A340309 KEYWORD nonn AUTHOR Amiram Eldar, Jan 03 2021 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 April 23 05:56 EDT 2021. Contains 343199 sequences. (Running on oeis4.)