OFFSET
1,1
LINKS
Michel Marcus, Table of n, a(n) for n = 1..272
EXAMPLE
3{97}7 = 97*41.
MATHEMATICA
Do[ If[ !PrimeQ[ n ] && StringPosition[ ToString[ n ], ToString[ Divisors[ n ] [ [ -2 ] ] ] ] != {}, Print[ n ] ], {n, 2, 10^7} ]
Select[Range[319*10^4], CompositeQ[#]&&SequenceCount[IntegerDigits[ #], IntegerDigits[ Divisors[#][[-2]]]]>0&] (* Harvey P. Dale, Dec 26 2022 *)
PROG
(PARI) gpd(n) = if(n==1, 1, n/factor(n)[1, 1]); \\ A032742
issub(vv, v) = {for (i=1, #v - #vv + 1, if (vector(#vv, k, v[k+i-1]) == vv, return(1)); ); }
isok(n) = if ((n>1) && !isprime(n), issub(digits(gpd(n)), digits(n))); \\ Michel Marcus, Dec 31 2020
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Jun 30 2001
EXTENSIONS
More terms from Robert G. Wilson v, Aug 08 2001
More terms from Michel Marcus, Dec 31 2020
Clarified definition at the suggestion of Harvey P. Dale. - N. J. A. Sloane, Dec 26 2022
STATUS
approved