|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,1000
|
|
|
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) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Oct 16 2009]
|
|
|
CROSSREFS
| Cf. A034448.
Sequence in context: A079349 A154864 A186120 * A165228 A205866 A013649
Adjacent sequences: A065340 A065341 A065342 * A065344 A065345 A065346
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jason Earls (zevi_35711(AT)yahoo.com), Dec 02 2001
|
| |
|
|
