|
Search: id:A084970
|
|
|
| A084970 |
|
Numbers whose smallest prime factor is 13. |
|
+0
2
|
|
| 13, 169, 221, 247, 299, 377, 403, 481, 533, 559, 611, 689, 767, 793, 871, 923, 949, 1027, 1079, 1157, 1261, 1313, 1339, 1391, 1417, 1469, 1651, 1703, 1781, 1807, 1937, 1963, 2041, 2119, 2171, 2197, 2249, 2327, 2353, 2483, 2509, 2561, 2587, 2743, 2873
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
a = Join[ {Table[2n, {n, 1, 41}]}, Table[ Take[ Prime[n]*Select[ Range[10^5], GCD[ Prime[n] #, Product[ Prime[i], {i, 1, n - 1}]] == 1 &], 41], {n, 2, 41}]]; Table[ a[[n, n]], {n, 1, 41}]
|
|
CROSSREFS
|
Sixth row of A083140.
Adjacent sequences: A084967 A084968 A084969 this_sequence A084971 A084972 A084973
Sequence in context: A012828 A119539 A078362 this_sequence A015961 A045589 A093151
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 15 2003
|
|
EXTENSIONS
|
More terms from David Wasserman (wasserma(AT)spawar.navy.mil), Oct 19 2004
|
|
|
Search completed in 0.002 seconds
|
