OFFSET
1,1
MAPLE
A133992 := proc(n) p := ithprime(n) ; p*ithprime(p)-1 ; numtheory[tau](%) ; end proc: seq(A133992(n), n=1..80) ; # R. J. Mathar, Jun 28 2010
MATHEMATICA
Table[DivisorSigma[0, Prime[n]*Prime[Prime[n]] - 1], {n, 100}] (* Wesley Ivan Hurt, Feb 03 2017 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Jan 09 2008
EXTENSIONS
Definition clarified by D. S. McNeil, Jun 28 2010
STATUS
approved