A063132 Composite numbers not divisible by 2 or 3 which in base 3 contain their largest proper factor as a substring.

49, 427, 671, 949, 1387, 1679, 1849, 2117, 3397, 3829, 4307, 6017, 6169, 7141, 8299, 10547, 11773, 13703, 17161, 17819, 19517, 24523, 25019, 25877, 29941, 30607, 31459, 33853, 34447, 34547, 35657, 35947, 38243, 38491, 38579, 39283, 45571

Offset

1,1

Links

Table of n, a(n) for n=1..37.

Mathematica

Do[ If[ !PrimeQ[ n ] && Mod[ n, 3 ] != 0 && StringPosition[ ToString[ FromDigits[ IntegerDigits[ n, 3 ] ] ], ToString[ FromDigits[ IntegerDigits[ Divisors[ n ][ [ -2 ] ], 3 ] ] ] ] != {}, Print[ n ] ], {n, 3, 10^5, 2} ]

Crossrefs

Cf. A063127, A062238.

Sequence in context: A168572 A350382 A063874 * A250081 A250082 A012097

Adjacent sequences: A063129 A063130 A063131 * A063133 A063134 A063135

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 08 2001

Status

approved