in reply to challenge: OEIS A073015 serie

Here is my 35 char solution:
<Reveal this spoiler or all in this thread>
L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Replies are listed 'Best First'.
Re^2: challenge: OEIS A073015 serie
by choroba (Cardinal) on Dec 18, 2015 at 15:12 UTC
    On my system, ∞ is inf, so I needed to lowercase the I.

    Here's my shorter version:

    <Reveal this spoiler or all in this thread>
    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

    [download]
[reply]
[d/l]
[select]
[reply]
[d/l]

        Your proposition lacks the final infinite though. But in any case you can win one char with until. say$_=3;say$_*=--$_ until/i/

[reply]
[d/l]

In Section Seekers of Perl Wisdom