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.

A113467 Least k such that k, k+n and k+2n have the same number of divisors.

This page as a plain text file.
%I A113467 #10 Aug 20 2017 17:26:21
%S A113467 33,3,119,3,77,5,8,3,77,3,35,5,8,3,187,6,21,5,8,3,145,33,39,5,8,39,8,
%T A113467 3,33,7,15,12,189,3,28,7,21,3,55,3,33,5,8,66,209,69,35,5,8,3,115,39,
%U A113467 141,5,51,6,8,27,15,7,21,66,95,3,40,5,27,3,8,15,35,7,69,55,287,6,65,11,8,3,24
%N A113467 Least k such that k, k+n and k+2n have the same number of divisors.
%C A113467 Third row of A113465.
%H A113467 Harvey P. Dale, <a href="/A113467/b113467.txt">Table of n, a(n) for n = 1..1000</a>
%e A113467 a(7) = 8 because 8, 15 and 22 each have 4 divisors.
%t A113467 snd[n_]:=Module[{k=1},While[Length[Union[DivisorSigma[0,{k,k+n,k+2n}]]]>1, k++];k]; Array[snd,90] (* _Harvey P. Dale_, Aug 20 2017 *)
%o A113467 (PARI) a(n) = {k  = 1; until ((numdiv(k) == numdiv(k+n)) && (numdiv(k) == numdiv(k+2*n)), k++); return (k);} \\ _Michel Marcus_, Jun 16 2013
%Y A113467 Cf. A005238, A113458, A113465.
%K A113467 easy,nonn
%O A113467 1,1
%A A113467 _David Wasserman_, Jan 08 2006