A071835 Numbers k such that the largest prime factor of k is equal to floor(sqrt(k)).

4, 8, 9, 12, 25, 30, 49, 56, 63, 121, 132, 169, 182, 195, 289, 306, 361, 380, 399, 529, 552, 575, 841, 870, 961, 992, 1023, 1369, 1406, 1443, 1681, 1722, 1849, 1892, 1935, 2209, 2256, 2303, 2809, 2862, 2915, 3481, 3540, 3721, 3782, 3843, 4489, 4556, 4623

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[2, 5000], FactorInteger[#][[-1, 1]] == Floor[Sqrt[#]] &] (* Amiram Eldar, Apr 23 2022 *)

Prog

(PARI) for(n=2, 10000, if(component(component(factor(n), 1), omega(n))==floor(sqrt(n)), print1(n, ", ")))

Crossrefs

Cf. A000196, A006530.

Sequence in context: A211658 A235054 A292364 * A308416 A010429 A140282

Adjacent sequences: A071832 A071833 A071834 * A071836 A071837 A071838

Keyword

easy,nonn

Author

Benoit Cloitre, Jun 08 2002

Status

approved