a(0) = a(1) = 1; thereafter a(n) = a(n-1) + a(n-2) if n is even, otherwise a(n) = a(n-1)^2.
(history;
published version)
PROG
(MAGMAMagma) [n le 2 select 1 else IsEven(n) select Self(n-1)^2 else Self(n-1)+Self(n-2): n in [1..20]];
Discussion
Thu Sep 08
08:46
OEIS Server: https://oeis.org/edit/global/2944
EXTENSIONS
Extended Edited and extended and edited by Bruno Berselli, Feb 25 2016
Discussion
Fri Feb 26
02:55
Bruno Berselli: Vincenzo: tra la tua proposta (#3) e l'attuale forma della voce c'è un evidente abisso! Ho cercato di dare contenuti e sostanza a questa sequenza, ciò a cui avresti dovuto provvedere tu prima di presentarla. Capisco le tue difficoltà, tuttavia OEIS non incoraggia gli autori a presentare i propri contributi appena imbastiti, bisogna innanzitutto capire quello che si propone e spiegarlo con chiarezza agli editori. Produrre una sequenza non è un atto meccanico, ma un importante e prezioso lavoro intellettuale che deve essere condotto con vera passione e accuratezza, responsabilmente, non "come capita". Se tale lavoro risulta incomprensibile o insostenibile, è meglio non affrontarlo --- Grazie della collaborazione.
COMMENTS
After 2, subsequence of all terms belong to A238411.
MATHEMATICA
a[n_] := If[OddQ @ n, a[n - 1] + a[n - 2], a[n - 1]^2]; a[10] = 1; Array[a, 17]
COMMENTS
After 2, subsequence of A238411.