A340306 - OEIS

A340306

Numbers k such that A065642(k) = A081761(k).

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

Table of n, a(n) for n=1..33.

Index entries for sequences related to prime signature

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