login
A085067
a(1) = 6, a(n) = smallest number of the form k*a(n-1) + 1 with the same number of divisors, i.e., 4.
1
6, 55, 111, 334, 335, 671, 1343, 16117, 16118, 64473, 64474, 257897, 2063177, 8252709, 41263546, 123790639, 371371918, 1485487673, 2970975347, 59419506941, 356517041647, 5704272666353, 11408545332707, 262396542652262
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
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
Cf. A085066.
Sequence in context: A119220 A119218 A085066 * A069508 A079465 A061792
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