OFFSET
1,1
EXAMPLE
666 and 111111111 are members but 66, 1111 etc. are not.
MATHEMATICA
Select[Flatten[Table[FromDigits[PadRight[{}, i, n]], {i, 9}, {n, 9}]], !SquareFreeQ[#]&] (* Harvey P. Dale, Jan 22 2013 *)
PROG
(Python)
from sympy.ntheory.factor_ import core
def repsthru(maxd):
yield from (int(di*d) for d in range(1, maxd+1) for di in "123456789")
def okrep(r): return r > 3 and core(r, 2) != r
print(list(filter(okrep, repsthru(9)))) # Michael S. Branicky, Apr 08 2021
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 11 2002
EXTENSIONS
Corrected and extended by Ray Chandler, Aug 12 2003
Offset changed by Andrew Howroyd, Sep 29 2024
STATUS
approved