|
| |
|
|
A064348
|
|
Numbers n such that n and n+1 have the same sum of unitary divisors and the same number of divisors.
|
|
1
| |
|
|
14, 44, 1334, 1634, 2295, 2685, 3195, 17255, 33998, 42818, 45716, 79316, 84134, 122073, 124676, 125811, 166934, 239499, 289454, 294151, 383594, 440013, 544334, 605985, 649154, 655005, 736515, 1163624, 1325511, 1364104
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,75
|
|
|
PROG
| (PARI) {usigma(n, s=1, fac, i) = fac=factor(n); for(i=1, matsize(fac)[1], s=s*(1+fac[i, 1]^fac[i, 2]) ); return(s); } for(n=1, 10^6, if(usigma(n)==usigma(n+1) && numdiv(n)==numdiv(n+1), print1(n, ", ")))
(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) } { n=0; s=0; d=0; for (m=1, 10^9, us=usigma(m + 1); ud=numdiv(m + 1); if(s==us && d==ud, write("b064348.txt", n++, " ", m); if (n==100, break)); s=us; d=ud ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 12 2009]
|
|
|
CROSSREFS
| Cf. A034448, A000005.
Sequence in context: A033587 A189807 A009942 * A206215 A123295 A092350
Adjacent sequences: A064345 A064346 A064347 * A064349 A064350 A064351
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jason Earls (zevi_35711(AT)yahoo.com), Oct 15 2001
|
| |
|
|
