OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..355
MATHEMATICA
Module[{nn=25, sf}, sf=Select[Range[2, nn], SquareFreeQ]; Table[FromDigits[Flatten[ IntegerDigits/@ Take[sf, n]]], {n, Length[sf]}]] (* Harvey P. Dale, Oct 09 2023 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Jaroslav Krizek, Apr 25 2009
EXTENSIONS
Slightly edited by R. J. Mathar, Apr 28 2009
STATUS
approved