OFFSET
1,1
COMMENTS
PROG
(PARI) f(n) = my(s=""); for (k=1, n, s = Str(s, precprime(10^k))); eval(s); \\ A342834
isok(m) = !issquarefree(f(m)); \\ Michel Marcus, Apr 01 2021
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Bernard Schott and Daniel Suteu, Apr 01 2021
STATUS
approved