login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A279541 Indices of records in A192013: Sum_{d|n} Kronecker(-6, d). 2
1, 5, 25, 35, 175, 385, 1225, 1925, 9625, 13475, 48125, 55825, 148225, 279125, 390775, 1395625, 1730575, 4298525, 8652875, 12114025, 43264375, 60570125, 133254275, 302850625, 423990875, 642043325, 2119954375 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Charles R Greathouse IV, Table of n, a(n) for n = 1..400

PROG

(PARI) smooth(P:vec, lim)=my(v=List([1]), nxt=vector(#P, i, 1), indx, t); while(1, t=vecmin(vector(#P, i, v[nxt[i]]*P[i]), &indx); if(t>lim, break); if(t>v[#v], listput(v, t)); nxt[indx]++); Vec(v);

ok(p)=p=p%24; p==1 || p==5 || p==7 || p==11;

A192013(n)=sumdivmult(n, d, kronecker(-6, d));

list(lim)=my(u=List([1]), v=[5], r, t); forprime(p=7, , if(ok(p), if(v[#v]*p>lim, break); v=concat(v, v[#v]*p))); v=smooth(v, lim); for(i=2, #v, t=A192013(v[i]); if(t>r, r=t; listput(u, v[i]))); Vec(u)

CROSSREFS

Cf. A192013, A279542, A109017.

Sequence in context: A070391 A084967 A249827 * A070390 A018724 A070389

Adjacent sequences:  A279538 A279539 A279540 * A279542 A279543 A279544

KEYWORD

nonn

AUTHOR

Charles R Greathouse IV, Dec 14 2016

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 25 14:35 EDT 2019. Contains 326324 sequences. (Running on oeis4.)