OFFSET
1,1
COMMENTS
Either no multiples of 37 have digit sum 7 or their first values are > 10000000. - Larry Reeves (larryr(AT)acm.org), Jul 02 2002
No multiples of 3, 11, 37, 101 or 271 have digit sum 7. - Robert Israel, Feb 13 2024
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
a(n)= n*A088396(n). - R. J. Mathar, Aug 06 2019
MAPLE
unfinished:= true: V:= Vector(300): V0:= select(t -> igcd(t, 3*11*37*101*271) = 1, {$1..300}):
for i1 from 0 while unfinished do
for i2 from 0 to i1 while unfinished do
for i3 from 0 to i2 while unfinished do
for i4 from 0 to i3 while unfinished do
for i5 from 0 to i4 while unfinished do
for i6 from 0 to i5 while unfinished do
for i7 from 0 to i6 while unfinished do
v:= 10^i1 + 10^i2 + 10^i3 + 10^i4 + 10^i5 + 10^i6 + 10^i7;
dv:= numtheory:-divisors(v);
for s in V0 intersect dv do
V[s]:= v;
od;
V0:= V0 minus dv;
unfinished:= evalb(V0 <> {});
od od od od od od od:
convert(V, list); # Robert Israel, Feb 13 2024
CROSSREFS
KEYWORD
AUTHOR
Amarnath Murthy, Apr 01 2002
EXTENSIONS
More terms from Larry Reeves, Jul 02 2002
STATUS
approved