OFFSET
1,1
COMMENTS
Fourth row of A113465.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
a(19) = 8 because 8, 8 + 19 = 27, 8 + 2*19 = 46 and 8 + 3*19 = 65 each have 4 divisors.
MATHEMATICA
a[n_] := Module[{k = 1, d}, While[(d = DivisorSigma[0, k]) != DivisorSigma[0, k+n] || DivisorSigma[0, k+2*n] != d || DivisorSigma[0, k+3*n] != d, k++]; k]; Array[a, 60] (* Amiram Eldar, Aug 04 2024 *)
PROG
(PARI) a(n) = {my(k = 1, d); while((d = numdiv(k)) != numdiv(k+n) || numdiv(k+2*n) != d || numdiv(k+3*n) != d, k++); k; } \\ Amiram Eldar, Aug 04 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
David Wasserman, Jan 08 2006
EXTENSIONS
Name corrected by Amiram Eldar, Aug 04 2024
STATUS
approved