A077185 - OEIS

%I #7 Jul 13 2015 20:59:50

%S 0,7,0,3,128465555544332211,11647163162383665717,58097313,2859,

%T 702235353091782071927,149,814268458452231668262948810358418956591,

%U 5730248154490578733002999666333

%N a(n) = A000422(A077184(n))/prime(n).

%e a(4) = 3 = 21 /7.

%p a077184 := [0, 2, 0, 2, 14, 15, 9, 5, 16, 4, 25, 21, 40, 67, 78, 66, 25, 111, 161, 49, 30, 15, 27, 20, 63, 98, 102, 3, 99, 92, 296, 71, 22, 367, 4, 48, 50, 91, 45, 241, 137, 258, 23, 28, 212, 40, 96, 408, 456, 110] : A055642 := proc(n) floor(log[10](n))+1 ; end : A000422 := proc(n) local resul,i; resul := 0 ; for i from n to 1 by -1 do resul := 10^A055642(i)*resul+i ; od ; end: for n from 1 to nops(a077184) do if op(n,a077184) <> 0 then printf("%a, ",A000422(op(n,a077184))/ithprime(n)) ; else printf("%d, ",0) ; fi ; od ; # _R. J. Mathar_, Apr 01 2007

%Y Cf. A077180, A077181, A077182, A077183, A077184.

%K base,nonn

%O 1,2

%A _Amarnath Murthy_, Nov 01 2002

%E Corrected and extended by _R. J. Mathar_, Apr 01 2007