OFFSET
1,2
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(PARI) list(lim)=my(v=List(), n, t); for(d=0, logint(lim\=1, 10), t=10^d; forsquarefree(k=t, min(10*t-1, lim), if(issquarefree(k[1]\t*10 + k[1]%10), listput(v, k[1])))); Vec(v) \\ Charles R Greathouse IV, Feb 14 2018
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 06 2002
EXTENSIONS
a(1) inserted by Charles R Greathouse IV, Feb 14 2018
STATUS
approved