login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A210523 Record values of Dedekind psi function. 2
1, 3, 4, 6, 12, 18, 24, 36, 48, 72, 96, 108, 144, 168, 192, 216, 240, 288, 360, 384, 432, 576, 648, 672, 720, 864, 1008, 1152, 1296, 1344, 1440, 1728, 1800, 2016, 2304, 2592, 2880, 3024, 3456, 4032, 4320, 4608, 5184 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Record values of A001615.

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..808 (terms 1..373 from Enrique Pérez Herrero)

FORMULA

a(n) = A001615(A330006(n)). - Amiram Eldar, Nov 26 2019

MAPLE

N:= 100: # to get a(1) to a(N)

A001615 := proc(n) n*mul((1+1/i[1]), i=ifactors(n)[2]) end:

count:= 0:

val:= -infinity:

for i from 1 while count < N do

  v:= A001615(i);

  if v > val then

     val:= v;

       count:= count+1;

       A[count]:=v;

  fi

od:

seq(A[i], i=1..N); # Robert Israel, Nov 19 2014

MATHEMATICA

JordanTotient[n_, k_:1] := DivisorSum[n, #^k*MoebiusMu[n/#]&] /; (n>0) && IntegerQ[n]; DedekindPsi[n_] := JordanTotient[n, 2]/EulerPhi[n]; a=1; lst={a}; Do[b=DedekindPsi[n]; If[b>a, a=b; AppendTo[lst, b]], {n, 2000}]; lst

psi[1] = 1; psi[n_] := n * Times @@ (1 + 1/FactorInteger[n][[;; , 1]]); seq = {}; pmax = 0; Do[pmax = psi[n]; If[p > pmax, pmax = p; AppendTo[seq, p]], {n, 1, 10^5}]; seq (* Amiram Eldar, Nov 26 2019 *)

CROSSREFS

Cf. A002183, A006093, A330006 (the corresponding positions of records).

Sequence in context: A293593 A024373 A111159 * A109069 A329953 A329671

Adjacent sequences:  A210520 A210521 A210522 * A210524 A210525 A210526

KEYWORD

nonn

AUTHOR

Enrique Pérez Herrero, Jan 27 2013

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 September 27 03:21 EDT 2020. Contains 337380 sequences. (Running on oeis4.)