OFFSET
1,1
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 1..10000
MAPLE
with(numtheory): a:=proc(n) if tau(n)=tau(n-1)+tau(n-2) then n else end if end proc: seq(a(n), n=3..1300); # Emeric Deutsch, Oct 23 2008
MATHEMATICA
Select[Range[1200], DivisorSigma[0, #]==DivisorSigma[0, #-1]+ DivisorSigma[ 0, #-2]&] (* Harvey P. Dale, Jan 26 2013 *)
PROG
(Magma) [n:n in [3..1500]| NumberOfDivisors(n-1)+NumberOfDivisors(n-2) eq NumberOfDivisors(n)]; // Marius A. Burtea, May 08 2019
(PARI) isok(n) = (n>2) && (numdiv(n) == numdiv(n-1) + numdiv(n-2)); \\ Michel Marcus, May 08 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 11 2008
EXTENSIONS
Extended by Emeric Deutsch, Oct 23 2008
Name edited by Jon E. Schoenfield, May 08 2019
STATUS
approved