A226778 Numbers having no common divisor > 1 with their reversal in decimal representation (see A043537).
1, 10, 13, 14, 16, 17, 19, 23, 25, 29, 31, 32, 34, 35, 37, 38, 41, 43, 47, 49, 52, 53, 56, 58, 59, 61, 65, 67, 71, 73, 74, 76, 79, 83, 85, 89, 91, 92, 94, 95, 97, 98, 100, 103, 104, 106, 107, 109, 112, 113, 115, 116, 118, 119, 122, 124, 125, 127, 128, 130
Offset: 1
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Programs
-
Haskell
a226778 n = a226778_list !! (n-1) a226778_list = filter ((== 1) . a055483) [1..]
-
Mathematica
Select[Range[130], GCD[#, FromDigits[Reverse[IntegerDigits[#]]]] == 1 &] (* Jayanta Basu, Jul 24 2013 *) Select[Range[150],Intersection[Divisors[#],Divisors[IntegerReverse[#]]] == {1}&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 07 2020 *)
-
PARI
isok(n) = gcd(n, subst(Pol(Vecrev(digits(n))), x, 10)) == 1; \\ Michel Marcus, Jul 02 2015
-
PARI
is(n)=gcd(fromdigits(Vecrev(digits(n))), n)==1 \\ Charles R Greathouse IV, Aug 25 2016
Comments