|
Search: id:A093463
|
|
|
| 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. |
|
+0
2
|
|
| 1, 3, 10, 39, 196, 1175, 8226, 65807, 592262, 5922619, 65148810, 781785719, 10163214348, 142285000871, 2134275013064, 34148400209023, 580522803553392, 10449410463961055, 198538798815260046, 3970775976305200919
(list; graph; listen)
|
|
|
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 this_sequence A099763 A149052 A009692
Adjacent sequences: A093460 A093461 A093462 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
