This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
To find a(66041171): 066041171 -> 011023343 -> 11023343.
read("transforms"):
A123895 := proc(n)
local dgs,Lmap,idx,dig,pos,Lredu ;
dgs := [op(convert(n,base,10)) ,0];
Lmap := [] ;
for idx from -1 to -nops(dgs) by -1 do
dig := op(idx,dgs) ;
if not member(dig,Lmap) then
Lmap := [op(Lmap),dig] ;
end if;
end do:
Lredu := [] ;
for idx from -1 to -nops(dgs) by -1 do
member(op(idx,dgs),Lmap,'pos') ;
Lredu := [op(Lredu),pos-1] ;
end do:
digcatL(Lredu) ;
end proc:
seq(A123895(n),n=0..60) ; # R. J. Mathar, Dec 09 2015
f[n_] := Block[{d = Prepend[IntegerDigits@ n, 0], a, b, w}, b = DeleteDuplicates@ d; a = Range[0, Length@ b]; w = FromDigits@ Flatten[Part[a, FirstPosition[b, #]] & /@ d]; w]; Table[f@ n, {n, 0, 67}] (* Michael De Vlieger, Dec 09 2015, Version 10 *)
Public Function RestrictedGrowthString(ByVal x As String) As String
Dim i As Long
Dim dig As Integer
Dim pos As Long
For i = 1 To Len(x)
If Mid(x, i, 1) = "0" Then
RestrictedGrowthString = RestrictedGrowthString & "0"
Else
pos = InStr(x, Mid(x, i, 1))
If pos = i Then
dig = dig + 1
RestrictedGrowthString = RestrictedGrowthString &
Format(dig)
Else
RestrictedGrowthString = RestrictedGrowthString &
Mid(RestrictedGrowthString, pos, 1)
End If
End If
Next i
End Function
' Franklin T. Adams-Watters
bag := {} ;
for i from 0 to 99999 do
bag := bag union {A123895(i)} ;
end do:
sort(convert(bag,list)) ; # R. J. Mathar, Dec 10 2015
f[n_] := Block[{d = Prepend[IntegerDigits@ n, 0], a, b, w}, b = DeleteDuplicates@ d; a = Range[0, Length@ b]; w = FromDigits@ Flatten[Part[a, FirstPosition[b, #]] & /@ d]; w]; Union@ Table[f@n, {n, 0, 10^4}] (* Michael De Vlieger, Dec 09 2015, Version 10 *)
Comments