package PreferedNumbers;
use Exporter 'import';
@EXPORT = qw/E6 E12 E24 E48 E96/;

use strict;
use warnings;

use constant E6 => (10, 15, 22, 33, 47, 68);
use constant E12 => sort &E6, (12, 18, 27, 39,  56,  82);
use constant E24 => sort &E12, (11,  13,  16,  20,  24,  30,  36,  43,  51,  62,  75,  91);
use constant E48 => (100, 121, 147, 178, 215, 261, 316, 383, 464, 562, 681, 825,
105, 127, 154, 187, 226, 274, 332, 402, 487, 590, 715, 866,
110, 133, 162, 196, 237, 287, 348, 422, 511, 619, 750, 909,
115, 140, 169, 205, 249, 301, 365, 442, 536, 649, 787, 953);
use constant E96 => (100, 121, 147, 178, 215, 261, 316, 383, 464, 562, 681, 825
, 102, 124, 150, 182, 221, 267, 324, 392, 475, 576, 698, 845
, 105, 127, 154, 187, 226, 274, 332, 402, 487, 590, 715, 866
, 107, 130, 158, 191, 232, 280, 340, 412, 499, 604, 732, 887
, 110, 133, 162, 196, 237, 287, 348, 422, 511, 619, 750, 909
, 113, 137, 165, 200, 243, 294, 357, 432, 523, 634, 768, 931
, 115, 140, 169, 205, 249, 301, 365, 442, 536, 649, 787, 953
, 118, 143, 174, 210, 255, 309, 374, 453, 549, 665, 806, 976);