Post Reply 
(49G) OEIS a131421, a Sequence with No Name
07-30-2015, 01:49 PM (This post was last modified: 06-15-2017 01:44 PM by Gene.)
Post: #1
(49G) OEIS a131421, a Sequence with No Name
In the OEIS this sequence is described as

(A000012 * A127775) + (A127775 * A000012) - A000012

see

http://oeis.org/A131421

So I guess no one has so far suggested a fitting name - Any suggestions?

For integer input N the programme returns the first N elements of the sequence in a list.

eg For input

500

the programme returns

{ 1 3 5 5 7 9 7 9 11 13 9 11 13 15 17 11 13 15 17 19 21 13 15 17 19 21 23 25 15 17 19 21 23 25 27 29 17 19 21 23 25 27 29 31 33 19 21 23 25 27 29 31 33 35 37 21 23 25 27 29 31 33 35 37 39 41 23 25 27 29 31 33 35 37 39 41 43 45 25 27 29 31 33 35 37 39 41 43 45 47 49 27 29 31 33 35 37 39 41 43 45 47 49 51 53 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 63 65 67 69 }



Code:

::
  CK1&Dispatch
  BINT1
  ::
    %ABSCOERCE
    1LAMBIND
    BINT1
    {
      Z1_
    }
    DUP
    1GETLAM
    #1+_ONE_DO
    3UNROLL
    CDRCOMP
    BINT2
    ZERO_DO
    SWAP
    #2+
    DUPUNROT
    FPTR2 ^#>Z
    >TCOMP
    LOOP
    ROTOVER
    &COMP
    DUPLENCOMP
    1GETLAM
    #<
    ?SKIP
    ExitAtLOOP
    LOOP
    ROTROT2DROP
    BINT1
    1GETABND
    SUBCOMP
  ;
;
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)