login
A163139
First differences of A163128.
2
1, 1, 1, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10
OFFSET
1,5
COMMENTS
First differences of self numbers, minus 1.
FORMULA
a(n) = A163128(n+1) - A163128(n) = A003052(n+1) - A003052(n) - 1.
EXAMPLE
a(6) = 24 - 14 = 10.
MAPLE
A007953 := proc(n) add(d, d=convert(n, base, 10)) ; end:
isA003052 := proc(n) for k from 1 to n do if k+A007953(k) = n then RETURN(false) ; fi; od: true; end:
A003052 := proc(n) option remember; if n = 1 then 1; else for a from procname(n-1)+1 do if isA003052(a) then RETURN(a) ; fi; od: fi; end:
for n from 1 to 100 do printf("%d, ", A003052(n+1)-A003052(n)-1) ; od: # R. J. Mathar, Jul 31 2009
CROSSREFS
Sequence in context: A239051 A131722 A072803 * A269352 A010692 A109751
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Missing 10's inserted by R. J. Mathar, Jul 31 2009
STATUS
approved