A326312 -id:A326312 - cp's OEIS frontend

A326313 Where the number of divisors d(k) reaches a new record for numbers k whose prime factors are of the form 4*j+3.

3, 9, 21, 63, 189, 441, 567, 693, 2079, 4851, 6237, 13167, 39501, 92169, 118503, 276507, 829521, 908523, 2119887, 2725569, 6359661, 19078983, 28164213, 57236949, 84492639, 171710847, 197149491, 591448473, 1211061159, 1774345419, 3633183477, 5323036257, 6505933203

Offset: 1

Hugo Pfoertner, Sep 11 2019

nonn

For references and links see A326312.

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

Cf. A053624, A071383, A230655, A326312, A326314.

aQ[n_] := AllTrue[FactorInteger[n][[;; , 1]], Mod[#, 4] == 3 &]; s[n_] := DivisorSum[n, 1 &, aQ[#] &]; sm = 0; seq = {}; Do[s1 = s[n]; If[s1 > sm, sm = s1; AppendTo[seq, n]], {n, 2, 10^5}]; seq (* Amiram Eldar, Sep 12 2019 *)

pkn(x,d,m)={my(fn=factor(x),nf=#fn[,1]);for(k=1,nf,if(fn[k,1]%d!=m,return(0)));numdiv(x)};
divrecord=0;
for(k=2,50000000,my(j=pkn(k,4,3));if(j>divrecord,divrecord=j;print1(k,", ")))

More terms from Amiram Eldar, Sep 12 2019

A326314 Where the number of divisors d(k) reaches a new record for numbers k whose prime factors are of the form 6*j+5.

Original entry on oeis.org

5, 25, 55, 275, 935, 3025, 4675, 21505, 51425, 107525, 537625, 1182775, 2688125, 3118225, 15591125, 34300475, 77955625, 127847225, 583108075, 639236125, 1406319475, 3196180625, 6008819575, 23907431075, 30044097875, 66097015325, 150220489375, 318467437475, 1123649260525

Offset: 1

Hugo Pfoertner, Sep 11 2019

nonn

For references and links see A326312.

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

Cf. A053624, A071383, A230655, A326312, A326313.

aQ[n_] := AllTrue[FactorInteger[n][[;; , 1]], Mod[#, 6] == 5 &]; s[n_] := DivisorSum[n, 1 &, aQ[#] &]; sm = 0; seq = {}; Do[s1 = s[n]; If[s1 > sm, sm = s1; AppendTo[seq, n]], {n, 2, 10^5}]; seq (* Amiram Eldar, Sep 12 2019 *)

pkn(x, d, m)={my(fn=factor(x), nf=#fn[, 1]); for(k=1, nf, if(fn[k, 1]%d!=m, return(0))); numdiv(x)};
divrecord=0;
for(k=2, 200000000, my(j=pkn(k, 6, 5)); if(j>divrecord, divrecord=j; print1(k, ", ")))

More terms from Amiram Eldar, Sep 12 2019

cp's OEIS Frontend

A326313 Where the number of divisors d(k) reaches a new record for numbers k whose prime factors are of the form 4*j+3.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Extensions