|
| |
|
|
A093463
|
|
a(1) = 1; for n>1, a(n) = n*a(n-1) +1 if n is a prime else a(n) = n*a(n-1) -1.
|
|
1
| |
|
|
1, 3, 10, 39, 196, 1175, 8226, 65807, 592262, 5922619, 65148810, 781785719, 10163214348, 142285000871, 2134275013064, 34148400209023, 580522803553392, 10449410463961055, 198538798815260046, 3970775976305200919
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| a[1] = 1; a[n_] := a[n] = (p = n*a[n - 1] + 1; If[ PrimeQ[n], p, p - 2]); Table[ a[n], {n, 20}] (From Robert G. Wilson v Apr 08 2004)
|
|
|
CROSSREFS
| Cf. A093464.
Sequence in context: A074728 A087860 A054912 * A099763 A149052 A009692
Adjacent sequences: A093460 A093461 A093462 * A093464 A093465 A093466
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 05 2004
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 08 2004
|
| |
|
|
