%I A088999
%S A088999 9,6,19,16,29,26,39,36,49,46,59,56,90,91,92,93,94,95,99,97,98,96,79,76,
%T A088999 89,86,60,61,62,63,64,65,69,67,68,66,109,106,119,116,129,126,139,136,
%U A088999 149,146,159,156,190,191,192,193,194,195,199,197,198,196,179,176,189
%N A088999 Flip 6,9 numbers.
%F A088999 For digits d of n if d=6 make it 9 else if d=9 make it 6.
%o A088999 (PARI) flip69(n) = { for(x=1,n, y=x; v=0; f=0; ln =length(Str(x)); a
= vector(ln); forstep(j=ln,1,-1, r = y%10; a[j]=r; if(r==6,a[j] =
9; f=1); if(r==9,a[j] = 6; f=1); y = floor(y/10); ); forstep(j=ln,
1,-1, v=v+a[j]*10^(ln-j) ); if(f,print1(v",")); ) }
%Y A088999 Sequence in context: A166520 A102648 A040074 this_sequence A073782 A156033
A038296
%Y A088999 Adjacent sequences: A088996 A088997 A088998 this_sequence A089000 A089001
A089002
%K A088999 nonn
%O A088999 1,1
%A A088999 Cino Hilliard (hillcino368(AT)gmail.com), Nov 02 2003
|