OFFSET
1,3
EXAMPLE
Among the positive integers not exceeding 12, the seven numbers 1,2,4,5,8,10,11 are relatively prime to reverse(12)=21. Hence a(12)=7.
MATHEMATICA
r = {}; Do[ s = FromDigits[Reverse[IntegerDigits[n]]]; j = 0; For[i = 1, i <= n, i++, If[GCD[s, i] == 1, j++ ]]; r = Append[r, j], {n, 1, 10^2}]; r
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, Jul 14 2002
STATUS
approved