OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
f[n_] := Times @@ (1 + IntegerExponent[n, {2, 3, 5}]); s = {}; m = 4; fs = f /@ Range[m]; Do[If[Equal @@ fs, AppendTo[s, n - m]]; fs = Rest @ AppendTo[fs, f[n]], {n, m + 1, 10^6}]; s
PROG
(PARI) s(n) = (valuation(n, 2) + 1) * (valuation(n, 3) + 1) * (valuation(n, 5) + 1);
s1 = s(1); s2 = s(2); s3 = s(3); for(k = 4, 1.6e6, s4 = s(k); if(s1 == s2 && s2 == s3 && s3 == s4, print1(k-3, ", ")); s1 = s2; s2 = s3; s3 = s4);
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jul 15 2022
STATUS
approved