A114013 Least multiple of prime(n) ending in digit 9.

49, 99, 39, 119, 19, 69, 29, 279, 259, 369, 129, 329, 159, 59, 549, 469, 639, 219, 79, 249, 89, 679, 909, 309, 749, 109, 339, 889, 1179, 959, 139, 149, 1359, 1099, 489, 1169, 519, 179, 1629, 1719, 579, 1379, 199, 1899, 669, 1589, 229, 699, 239, 2169, 2259

Offset

4,1

Comments

Subsidiary sequences: (1) least multiple of prime(n) ending in 2 or 3 or ..., or 8; (2) divide the above sequences by prime(n).

Links

Table of n, a(n) for n=4..54.

Mathematica

f[n_] := Block[{k = 1, p = Prime[n]}, While[Mod[k*p, 10] != 9, k++ ]; k*p]; Table[ f[n], {n, 4, 54}] (* Robert G. Wilson v, Nov 17 2005 *)

Prog

(PARI) a(n) = my(p=prime(n), k=1); while(((k*p) % 10) != 9, k++); k*p; \\ Michel Marcus, Jan 29 2023

Crossrefs

Cf. A114011, A114012.

Sequence in context: A044519 A031484 A260009 * A235578 A161689 A354342

Adjacent sequences: A114010 A114011 A114012 * A114014 A114015 A114016

Keyword

base,nonn

Author

Amarnath Murthy, Nov 12 2005

Extensions

More terms from Robert G. Wilson v, Nov 17 2005

Status

approved