A077185 a(n) = A000422(A077183(n))/prime(n).

0, 7, 0, 3, 128465555544332211, 11647163162383665717, 58097313, 2859, 702235353091782071927, 149, 814268458452231668262948810358418956591, 5730248154490578733002999666333

Offset: 1

Author

Amarnath Murthy, Nov 01 2002

Keywords

• base
• nonn

Examples

			a(4) = 3 = 21 /7.
		

Crossrefs

Cf. A000422, A077180, A077181, A077182, A077183.

Programs

Maple

a077183 := [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

Extensions

Corrected and extended by R. J. Mathar, Apr 01 2007