login
A065343
Smallest k such that usigma(n+k) = usigma(k).
1
14, 18, 85, 51, 6, 34, 10, 15, 14, 21, 18, 35, 36, 33, 26, 30, 72, 65, 34, 42, 30, 57, 231, 70, 30, 30, 42, 66, 54, 106, 58, 60, 116, 93, 42, 105, 140, 249, 60, 84, 30, 134, 82, 114, 70, 174, 220, 140, 66, 105, 98, 147, 66, 178, 90, 105, 78, 298, 154, 291, 118, 90, 90
OFFSET
1,1
LINKS
PROG
(PARI) usigma(n)= { local(f, s=1); f=factor(n); for(i=1, matsize(f)[1], s*=1 + f[i, 1]^f[i, 2]); return(s) } { for (n=1, 1000, k=1; while (usigma(n + k) != usigma(k), k++); write("b065343.txt", n, " ", k) ) } \\ Harry J. Smith, Oct 16 2009
CROSSREFS
Cf. A034448.
Sequence in context: A154864 A328239 A186120 * A222576 A165228 A205866
KEYWORD
nonn
AUTHOR
Jason Earls, Dec 02 2001
STATUS
approved