OFFSET
1,2
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
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