A071591 Numbers m such that Reversal(m) is squarefree.

1, 2, 3, 5, 6, 7, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 22, 24, 26, 28, 30, 31, 32, 33, 34, 35, 37, 38, 39, 41, 43, 47, 49, 50, 51, 53, 55, 56, 58, 59, 60, 62, 64, 66, 68, 70, 71, 73, 74, 75, 76, 77, 78, 79, 83, 85, 87, 91, 92, 93, 95, 96, 97, 98, 100, 101, 102, 103, 104

Offset

1,2

Links

Table of n, a(n) for n=1..69.

Mathematica

Select[Range[150], SquareFreeQ[FromDigits[Reverse[IntegerDigits[#]]]]&]  (* Harvey P. Dale, Feb 23 2011 *)

Prog

(PARI) isok(n) = issquarefree(fromdigits(Vecrev(digits(n)))); \\ Michel Marcus, Jan 16 2018

Crossrefs

Cf. A004086, A005117.

Sequence in context: A361372 A129125 A259444 * A089105 A028769 A094784

Adjacent sequences: A071588 A071589 A071590 * A071592 A071593 A071594

Keyword

base,easy,nonn

Author

Benoit Cloitre, Jun 01 2002

Extensions

Corrected (by deleting duplicate term) by Harvey P. Dale, Feb 23 2011

Missing term 1 inserted by Michel Marcus, Jan 16 2018

Status

approved