login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A290729 Analog of A085635, replacing "quadratic residue" (X^2) with "value of X(3X-1)/2". 3
1, 5, 7, 11, 13, 17, 19, 23, 25, 35, 55, 65, 77, 91, 119, 133, 143, 175, 275, 325, 385, 455, 595, 665, 715, 935, 1001, 1309, 1463, 1547, 1729, 1925, 2275, 2975, 3325, 3575, 4675, 5005, 6545, 7315, 7735, 8645 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Positions k where R(k) = A290732(k)/k, achieves a new minimum.

LINKS

Hugo Pfoertner, Table of n, a(n) for n = 1..182

Andreas Enge, William Hart, Fredrik Johansson, Short addition sequences for theta functions, arXiv:1608.06810 [math.NT], 2016-2018. See Table 6.

MATHEMATICA

a[n_] := Product[{p, e} = pe; If[p <= 3, p^e, (p^e - p^(e-1))/2 + (p^(e-1) - p^(Mod[e+1, 2]))/(2*(p+1)) + 1], {pe, FactorInteger[n]}];

r = 2; Reap[For[j=1, j <= 10^4, j = j+1, t = a[j]/j; If[t<r, r = t; Sow[j] ]]][[2, 1]] (* Jean-Fran├žois Alcover, Oct 02 2018, after Hugo Pfoertner *)

PROG

(PARI) a290732(n)={my(f=factor(n)); prod(k=1, #f~, my([p, e]=f[k, ]); if(p<=3, p^e, (p^e-p^(e-1))/2+(p^(e-1)-p^((e+1)%2))/(2*(p+1))+1))}

my(r=2); for(j=1, 10001, my(t=a290732(j)/j); if(t<r, r=t; print1(j, ", "))) \\ Hugo Pfoertner, Aug 26 2018

CROSSREFS

Cf. A000326, A085635, A084848, A290727, A290728, A290730, A290732.

Sequence in context: A070191 A231810 A314294 * A314295 A288155 A135775

Adjacent sequences:  A290726 A290727 A290728 * A290730 A290731 A290732

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Aug 10 2017

EXTENSIONS

a(1) corrected by Hugo Pfoertner, Aug 26 2018

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 25 09:33 EDT 2022. Contains 354066 sequences. (Running on oeis4.)