OFFSET
1,1
COMMENTS
Numbers are all 7 mod 63.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 700 terms from Harry J. Smith)
EXAMPLE
133 = 19*7 and 1+3+3 = 7, so 133 is a term of this sequence.
MATHEMATICA
Select[Range[7, 25000, 7], Plus @@ IntegerDigits[ # ] == 7 &]
PROG
(ARIBAS): var stk: stack; end; minarg := 0; maxarg := 5000; n := 7; for k := minarg to maxarg do m := k*n; s := itoa(m); for j := 0 to length(s) - 1 do stack_push(stk, atoi(s[j..j])); end; if sum(stack2array(stk)) = n then write(m, " "); end; end; .
(PARI) forstep(m=0, 70000, 7, if(vecsum(digits(m))==7, print1(m, ", "))) \\ Harry J. Smith, Aug 20 2009
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Klaus Brockhaus, Jul 20 2001
STATUS
approved