A382469 Numbers k such that the largest prime factor of k equals the sum of its remaining distinct prime factors.

30, 60, 70, 90, 120, 140, 150, 180, 240, 270, 280, 286, 300, 350, 360, 450, 480, 490, 540, 560, 572, 600, 646, 700, 720, 750, 810, 900, 960, 980, 1080, 1120, 1144, 1200, 1292, 1350, 1400, 1440, 1500, 1620, 1750, 1798, 1800, 1920, 1960, 2160, 2240, 2250, 2288, 2400, 2430, 2450, 2584, 2700, 2800, 2880, 3000, 3135, 3146, 3240

Offset

1,1

Comments

A larger than usual number of terms is provided in order to distinguish this sequence from A365795, from which it first differs at n = 58 (a(58) = 3135 is missing from A365795).

First differs from A071140 at n = 140.

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Mathematica

A382469Q[k_] := Last[#] == Total[Most[#]] & [FactorInteger[k][[All, 1]]];
Select[Range[4000], A382469Q]

Crossrefs

Positions of zeros in A382468.

Supersequence of A365795.

Cf. A006530, A027748, A071140, A221054.

Sequence in context: A221054 A071140 A365795 * A383395 A074915 A073461

Adjacent sequences: A382466 A382467 A382468 * A382470 A382471 A382472

Keyword

nonn

Author

Paolo Xausa, Mar 31 2025

Status

approved