login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Nonsquarefree numbers k such that A048250(k) > 2*k.
0

%I #6 Oct 09 2022 12:05:32

%S 401120980260,14841476269620,16445960190660,17248202151180,

%T 18852686072220,608500527054420,638183479593660,697549384672140,

%U 707176288198380,772960128961020,810665501105460,26165522663340060,28599524771557740,29994623540902020,33237285545323860,1229779565176982820

%N Nonsquarefree numbers k such that A048250(k) > 2*k.

%C The squarefree numbers k such that A048250(k) > 2*k are the squarefree abundant numbers (A087248).

%C The least odd term is 3*prime(553)#/2 = 3.735...*10^1709.

%t q[n_] := Module[{f = FactorInteger[n]}, AnyTrue[f[[;;, 2]], # > 1 &] && Times @@ (f[[;;, 1]]+1) > 2*n];

%o (PARI) is(n) = {my(f = factor(n)); if(n == 1 || vecmax(f[,2]) == 1, return(0)); prod(i=1, #f~, f[i,1]+1) > 2*n};

%Y Subsequence of A005101 and A013929.

%Y Cf. A005117, A048250, A087248, A357685, A357686.

%K nonn

%O 1,1

%A _Amiram Eldar_, Oct 09 2022