login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A062238 Composite numbers which contain their largest proper factor as a substring. 14
15, 25, 125, 1537, 3977, 11371, 38117, 110317, 117197, 123679, 143323, 146137, 179297, 197513, 316619, 390913, 397139, 399797, 485357, 779917, 797191, 990919, 1110691, 1178951, 1483117, 1723717, 1813733, 2165299, 2273099, 2369777, 2947969, 3035171, 3099013, 3183113 (list; graph; refs; listen; history; text; internal format)
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} ]

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

Cf. A002808 (composite numbers), A032742.

Sequence in context: A032587 A336689 A347375 * A146249 A248834 A249109

Adjacent sequences:  A062235 A062236 A062237 * A062239 A062240 A062241

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

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 16 17:39 EDT 2021. Contains 348042 sequences. (Running on oeis4.)