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).
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
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 12 2005
EXTENSIONS
More terms from Robert G. Wilson v, Nov 17 2005
STATUS
approved