OFFSET
0,2
COMMENTS
a(32) = 134217728. - Robert G. Wilson v, Jun 28 2010
LINKS
Donovan Johnson, Table of n, a(n) for n = 0..51
MATHEMATICA
f[n_] := Plus @@ Last /@ FactorInteger@n; t = Table[0, {100}]; k = 1; While[k < 10^9/4, a = f[k] + f[k + 1] -1; If[ t[[a + 1]] == 0, t[[a + 1]] = k; Print[{a, k}]]; k++ ]; t (* Robert G. Wilson v, Jun 28 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Shyam Sunder Gupta, Oct 19 2002
EXTENSIONS
Edited by Ray Chandler, Dec 17 2004
a(26)-a(30) from Ray Chandler, Dec 22 2004
STATUS
approved