OFFSET
1,1
LINKS
MATHEMATICA
Table[If[Length[Divisors[n]] == Length[Divisors[n + 1]], 1, 0], {n, 1, 80}] (* Stefan Steinerberger, Aug 12 2007 *)
PROG
(PARI) A130638(n) = (numdiv(n)==numdiv(n+1)); \\ Antti Karttunen, Oct 04 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Aug 11 2007
EXTENSIONS
Corrected and extended by Stefan Steinerberger, Aug 12 2007
More terms (up to a(105)) from Antti Karttunen, Oct 04 2017
STATUS
approved