%I A093464
%S A093464 1,1,2,9,44,265,1854,14833,133498,1334981,14684790,176217481,2290827252,
%T A093464 32071581529,481073722936,7697179566977,130852052638608,
%U A093464 2355336947494945,44751402002403954,895028040048079081
%N A093464 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.
%t A093464 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)
%Y A093464 Cf. A093463.
%Y A093464 Cf. A000166.
%Y A093464 Sequence in context: A052881 A020071 A000166 this_sequence A073478 A088369 
               A059388
%Y A093464 Adjacent sequences: A093461 A093462 A093463 this_sequence A093465 A093466 
               A093467
%K A093464 nonn
%O A093464 1,3
%A A093464 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 05 2004
%E A093464 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 08 2004