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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A338628 a(n) is the smallest number k such that n consecutive integers starting at k have the same number of square divisors (A046951). 0
 1, 1, 1, 844, 3624, 22020, 671346, 8870024, 264459172, 463239475, 1407472722 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,4 LINKS EXAMPLE 844 has 2 square divisors {1, 4}, 845 has 2 square divisors {1, 169}, 846 has 2 square divisors {1, 9} and 847 has 2 square divisors {1, 121}. These the first 4 consecutive numbers with the same number of square divisors, so a(4) = 844. MATHEMATICA Do[find = 0; k = 0; While[find == 0, k++; If[Length[Union[Table[Length[Select[Divisors[j], IntegerQ[Sqrt[#]] &]], {j, k, k + n - 1}]]] == 1, find = 1; Print[k]]], {n, 1, 7}] PROG (PARI) isok(n, k) = #Set(apply(x->sumdiv(x, d, issquare(d)), vector(n, i, k+i-1))) == 1; a(n) = my(k=1); while(! isok(n, k), k++); k; \\ Michel Marcus, Nov 05 2020 CROSSREFS Cf. A006558, A045983, A045984, A046951, A324593, A324594. Sequence in context: A334183 A078144 A071320 * A323253 A160212 A188296 Adjacent sequences:  A338625 A338626 A338627 * A338629 A338630 A338631 KEYWORD nonn,more AUTHOR Ilya Gutkovskiy, Nov 04 2020 EXTENSIONS a(8)-a(11) from Amiram Eldar, Nov 04 2020 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.

Last modified June 21 06:55 EDT 2021. Contains 345358 sequences. (Running on oeis4.)