"force" transformations

[Creighton Dement]

Dear Seqfans, 

Just submitted my first sequence based on the  "force(d)"
transformations discussed in a previous posting. It is possible to
construct many variations of this and I am having some trouble figuring
out which one of these is best.  I would be happy to hear any of your
comments concerning the page (I am starting) at
http://www.crowdog.de/20801/21101.html  .Note- I  will be out of town
this week so I probably won't be in a position to respond until I
return.
[see also my "p.s." at the bottom of this page. ]


%S A000001 5 27 157 915 5333 31083 181165 1055907 6154277 35869755
209064253 1218515763 7102030325 41393666187 241259966797 1406166134595
%N A000001 G.f. (-3*x+5)/(x^2-6*x+1)
%C A000001 A floretion-generated sequence relating to NSW numbers and
numbers n such that (n^2 - 8)/2 is a square. It is also possible to
lable this sequence as the "tesfor-transform of the zero-sequence" under
the floretion given in the program code, below. This is because the
sequence "vesseq" would normally have bee(n A046184 (indices of
octogonal numbers which are also a square) using the floretion given.
This floretion, however, was purposely "altered" in such a way that the
sequence "vesseq" would turn into A000004. As (a(n))  
would not have occured under "natural" circumstances, one could speak of
it as the transform of A000004.
%D A000001 M. Newman, D. Shanks and H. C. Williams, Simple groups of
square order and an interesting sequence of primes\
  , Acta Arith. 38 (1980/81), no. 2, 129-140. MR82b:20022
%D A002315 Problem 47, Amer. Math. Monthly, 4 (1897), 25-28. MR82b:20022
%H A000001 C. Dement, <a
href="http://www.crowdog.de/13829/home.html">The
Floretions</a>.
%H A000001 E. W. Weisstein, <a
href="http://mathworld.wolfram.com/NSWNumber.html">Link to a section
of The World of Mat\  hematics.</a>
%F A000001 a(n) = A002315(n) + A077445(n+1). Note: the offset of A077445
is 1.
a(n+1) - a(n) = 2*A054490(n+1)
%o A000001 Floretion Algebra Multiplication Program
FAMP code: - tesforseq[+ 3'i - 2'j + 'k + 3i' - 2j' + k' - 4'ii' - 3'jj'
+ 4'kk' - 'ij' - 'ji' + 3'jk' + 3'kj' + 4e],
Note: vesforseq = A000004, lesforseq = A002315, jesforseq = A077445
%Y A000001 Cf. A000004, A002315, A077445, A054490.
%O A000001 0
%K A000001 ,nonn,
%A A000001 Creighton Dement  (crowdog at crowdog.de), Jan 23 2005


p.s.. 
// Hugo's sequence:
1vesforseq: -1, -1, -1, -1, -1, -1, 1, -1, -1, -1, 1, -1, -1, 1, 1, -1,
-1, -1, 1, 1, 1, -1, 1, -1, -1, -1, 1, -1, 1, -1, 1, 1, -1, 1, 1, -1,
-1, 1, 1, -1, 1, 1, 1, 1, -1, -1, 1, -1, -1, 1, 1  
 4dia[I]forseq: -1, -1, 0, 1, 3, 6, 11, 17, 28, 47, 77, 124, 201, 327,
528, 853, 1381, 2236, 3619, 5855, 9472, 15325, 24797, 40122, 64919,
105043, 169964, 275007, 444971, 719978, 1164949, 1884927, 3049874,
4934801, 7984675, 12919474, 20904149, 33823625, 54727774,
88551397,143279171, 231830568, 375109737, 606940303, 982050038,
1588990341, 2571040381, 4160030722, 6731071103, 10891101827,

//  Eric's sequence:
1vesforseq: -1, -1, -1, -1, -1, -1, 1, -1, -1, -1, 1, -1, -1, 1, 1, -1,
-1, -1, 1, 1, -1, -1, 1, -1, -1, -1, 1, -1, 1, -1, 1, 1, -1, 1, 1, -1,
-1, 1, 1, -1, 1, -1, 1, 1, -1, -1, 1, -1, -1, 1, 1 
4dia[I]forseq: -1, -1, 0, 1, 3, 6, 11, 17, 28, 47, 77, 124, 201, 327,
528, 853, 1381, 2236, 3619, 5855, 9472, 15327, 24801, 40128, 64929,
105059, 169990, 275049, 445039, 720088, 1165127, 1885215, 3050340,
4935555, 7985895, 12921448, 20907343, 33828793, 54736136, 88564927,
143301063, 23186599, 375167053, 607033043, 982200094, 1589233137,
2571433233, 416066637, 6732099603, 10892765975, 


-- Sonja is bigger than me and I am bigger than Sonja! (my 3-year-old
daughter expressing that she and her friend Sonja are exactly the same
height)