OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
s[n_] := Times @@ (1 + IntegerExponent[n, {2, 3}]); Select[Range[400], s[#] == s[#+1] &]
PROG
(PARI) s(n) = (valuation(n, 2) + 1) * (valuation(n, 3) + 1);
s1 = s(1); for(k = 2, 400, s2 = s(k); if(s1 == s2, print1(k-1, ", ")); s1 = s2);
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jul 15 2022
STATUS
approved