OFFSET
1,2
EXAMPLE
a(4) = 3 = 21 /7.
MAPLE
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
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 01 2002
EXTENSIONS
Corrected and extended by R. J. Mathar, Apr 01 2007
STATUS
approved