OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harry J. Smith)
FORMULA
a(n) = 2*A190276(n) - 1. - Amiram Eldar, Dec 02 2023
MATHEMATICA
d[n_] := d[n] = DivisorSigma[0, n]; Select[Range[1, 420, 2], d[#] == d[# + 2] &] (* Amiram Eldar, Dec 02 2023 *)
PROG
(PARI) for (n=2, 1000, if (numdiv(2*n-1)==numdiv(2*n+1), print1(2*n-1, ", ")))
(PARI) { n=0; for (m=2, 10^10, if (numdiv(2*m-1) == numdiv(2*m+1), write("b066692.txt", n++, " ", 2*m-1); if (n==1000, return)) ) } \\ Harry J. Smith, Mar 18 2010
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jon Perry, Jan 11 2002
EXTENSIONS
Edited by Dean Hickerson, Jan 13 2002
Offset changed from 0 to 1 by Harry J. Smith, Mar 18 2010
STATUS
approved