|
Search: id:A063132
|
|
|
| A063132 |
|
Composite numbers not divisible by 2 or 3 which in base 3 contain their largest proper factor as a substring. |
|
+0
2
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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.
Adjacent sequences: A063129 A063130 A063131 this_sequence A063133 A063134 A063135
Sequence in context: A017606 A100690 A063874 this_sequence A012097 A061621 A030510
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 08 2001
|
|
|
Search completed in 0.002 seconds
|
