OFFSET
1,2
COMMENTS
This sequence is finite, the last term being a(1690) = 77377717.
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..1690
Rémy Sigrist, PARI program for A330597
EXAMPLE
1, 3, 7, 13, 37 and 137 are all squarefree, hence 137 is a term.
MATHEMATICA
sfQ[k_]:=With[{i=IntegerDigits[k]}, AllTrue[Flatten[Table[ FromDigits/@ Partition[ i, n, 1], {n, IntegerLength[k]}]], SquareFreeQ]]; Select[ Range[ 350], sfQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 09 2020 *)
PROG
(PARI) See Links section.
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Rémy Sigrist, Dec 19 2019
STATUS
approved