OFFSET
1,1
COMMENTS
Though the initial terms match, this sequence differs from A085066, in that the terms can be of two prime signatures, i.e., p*q and p^3 such that tau(p*q) = tau(p^3) = 4.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..90
MATHEMATICA
v = 6; Print[v]; Do[k = 1; While[DivisorSigma[0, k*v + 1] != 4, k++ ]; v = k*v + 1; Print[v], {n, 2, 30}] (* Ryan Propper, Aug 29 2005 *)
snsnd[n_]:=Module[{k=1}, While[DivisorSigma[0, k*n+1]!=4, k++]; k*n+1]; NestList[ snsnd, 6, 30] (* Harvey P. Dale, Apr 19 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 29 2003
EXTENSIONS
Corrected and extended by Ryan Propper, Aug 29 2005
STATUS
approved