login
A062281
Smallest multiple of n-th prime with all even digits.
2
2, 6, 20, 28, 22, 26, 68, 228, 46, 406, 62, 222, 82, 86, 282, 424, 826, 244, 268, 284, 2044, 2686, 664, 2848, 4268, 202, 206, 428, 8066, 226, 2286, 262, 822, 2224, 2086, 604, 628, 2282, 668, 2422, 2864, 8688, 4202, 4246, 8668, 22288, 422, 446, 4086
OFFSET
1,1
LINKS
EXAMPLE
a(8) = 228 as the eighth prime is 19. 228 = 19*12
MATHEMATICA
smnp[n_] :=Module[{k = 2}, While[AnyTrue[IntegerDigits[k*n], OddQ], k = k + 2]; k*n]; Join[{2}, Table[smnp[p], {p, Prime[Range[2, 100]]}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 02 2019 *)
CROSSREFS
Cf. A062280.
Sequence in context: A128447 A032622 A104749 * A267124 A322371 A131441
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, Jun 18 2001
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), Jun 20 2001
STATUS
approved