07-30-2015, 01:49 PM
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 }
(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
;
;