|
| |
|
|
A072275
|
|
Least m such that one less than m-th prime has n divisors (or 0 if no such prime exists).
|
|
0
| |
|
|
2, 3, 4, 7, 6, 0, 11, 12, 30, 0, 18, 0, 44, 79, 47, 0, 42, 0, 53, 106, 1581, 0, 82, 211, 1470, 595, 319, 0, 169, 0, 216, 2819, 177975, 279, 0, 62947, 41203, 326, 0, 647, 0, 1795, 907
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
MATHEMATICA
| Do[ If[ !PrimeQ[n], k = 1; While[ Length[ Divisors[ Prime[k] - 1]] != n, k++ ]; Print[k], Print[0]], {n, 6, 34}]
|
|
|
CROSSREFS
| A000040{a(n)}=A066814(n).
Sequence in context: A191438 A191730 A167151 * A122989 A077223 A055265
Adjacent sequences: A072272 A072273 A072274 * A072276 A072277 A072278
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Lekraj Beedassy (blekraj(AT)yahoo.com), Jul 09 2002
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 15 2002
|
| |
|
|
