cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A203444 Numbers in range of Dedekind Psi function: A001615.

This page as a plain text file.
%I A203444 #23 Dec 14 2018 12:25:03
%S A203444 1,3,4,6,8,12,14,18,20,24,30,32,36,38,42,44,48,54,56,60,62,68,72,74,
%T A203444 80,84,90,96,98,102,104,108,110,112,114,120,126,128,132,138,140,144,
%U A203444 150,152,158,160,162,164,168,174,176,180,182,186,192,194,198,200
%N A203444 Numbers in range of Dedekind Psi function: A001615.
%C A203444 a(n) is even for n>2
%H A203444 Enrique Pérez Herrero, <a href="/A203444/b203444.txt">Table of n, a(n) for n = 1..5000</a>
%H A203444 Patrick Sole and Michel Planat, <a href="http://arxiv.org/abs/1011.1825">Extreme values of the Dedekind Psi function</a>,  J. Comb. Number Theory 3 (2011), no. 1, 33-38, arXiv:1011.1825v2.
%t A203444 terms = 100; Clear[seq]; seq[k_] := seq[k] = Table[DirichletConvolve[j, MoebiusMu[j]^2, j, n], {n, 1, k terms}] // Union // PadRight[#, terms]&;
%t A203444 seq[k = 1]; seq[k++]; While[Print[k]; seq[k] != seq[k-1], k++];
%t A203444 seq[k] (* _Jean-François Alcover_, Dec 14 2018, after _Jan Mangaldan_ in A001615 *)
%Y A203444 Cf. A001615, A175836, A060648.
%Y A203444 Cf. A007617.
%Y A203444 Cf. A002202.
%K A203444 nonn
%O A203444 1,2
%A A203444 _Enrique Pérez Herrero_, Jan 02 2012