OFFSET
1,1
COMMENTS
Numbers n such that n-1 and n+1 are both multiplicatively perfect numbers A007422.
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
MAPLE
with(numtheory): A189974 := proc(n) option remember: local k: if(n=1)then return 7:else k:=procname(n-1)+1: do if(tau(k-1)=4 and tau(k+1)=4)then return k: fi: k:=k+1: od: fi: end: seq(A189974(n), n=1..60); # Nathaniel Johnston, May 04 2011
MATHEMATICA
Select[Range[2, 754], DivisorSigma[0, # - 1] == DivisorSigma[0, # + 1] == 4 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, May 03 2011
STATUS
approved