|
Search: id:A074401
|
|
|
| A074401 |
|
2^n contains all divisors of n as substrings. |
|
+0
1
|
|
| 37, 51, 67, 89, 93, 179, 191, 373, 391, 445, 478, 479, 519, 521, 551, 581, 583, 601, 613, 619, 653, 655, 661, 673, 697, 701, 703, 713, 719, 727, 753, 759, 769, 773, 778, 851, 853, 881, 886, 889, 907, 913, 919, 923, 949, 973, 974
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
2^51 = 2251799813685248, which contains the divisors of 51, i.e. 1, 3, 17, 51, as substrings, so 51 belongs to the sequence.
|
|
MATHEMATICA
|
a = {}; Do[d = Divisors[i]; l = Length[d]; r = True; s = ToString[2^i]; For[j = 1, j <= l, j++, If[StringPosition[s, ToString[d[[j]]]] == {}, r = False; Break] ]; If[r == True, a = Append[a, i]], {i, 1, 10^3}]; a
|
|
CROSSREFS
|
Adjacent sequences: A074398 A074399 A074400 this_sequence A074402 A074403 A074404
Sequence in context: A039465 A083240 A129072 this_sequence A084548 A092105 A101938
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Sep 25 2002
|
|
|
Search completed in 0.002 seconds
|
