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!)
 A340302 Numbers k such that k and the least number that is larger than k and has the same prime signature as k also has the same set of distinct prime divisors as k. 4
 12, 72, 144, 420, 432, 540, 864, 1728, 1800, 2000, 2268, 2520, 2592, 5184, 5400, 6300, 7020, 10125, 10368, 10692, 10800, 11340, 12600, 15120, 15552, 16200, 17640, 20000, 20736, 21168, 21600, 24000, 24948, 25200, 26460, 31104, 37800, 40500, 41472, 42750, 43200 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Numbers k such that A007947(k) = A007947(A081761(k)). This sequence is infinite since it includes all the numbers of the form 2*6^k for k>=1. LINKS Amiram Eldar, Table of n, a(n) for n = 1..500 EXAMPLE 12 = 2^2 * 3 is a term since the least number that is larger than 12 and has the same prime signature as 12 is 18 = 2 * 3^2 which also has the same set of distinct prime divisors as 12, {2, 3}. MATHEMATICA sig[n_] := Sort@FactorInteger[n][[;; , 2]]; nextsig[n_] := Module[{sign = sig[n], k = n + 1}, While[sig[k] != sign, k++]; k]; rad[n_] := Times @@ FactorInteger[n][[;; , 1]]; Select[Range[2, 1000], rad[#] == rad[nextsig[#]] &] CROSSREFS Cf. A007947, A081761, A085079, A089247, A118914, A167747. Sequence in context: A219302 A338261 A101523 * A143698 A304164 A199531 Adjacent sequences:  A340299 A340300 A340301 * A340303 A340304 A340305 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 June 14 05:51 EDT 2021. Contains 345018 sequences. (Running on oeis4.)