OFFSET
1,2
EXAMPLE
0^(1 + 2) = 0^3 = 0 = a(1).
3^(2 + 2) = 3^4 = 81 = a(2).
5^(2 + 3) = 5^5 = 3125 = a(3).
7^(2 + 3) = 7^5 = 16807 = a(4).
3^(2 + 2) = 3^4 = 81 = a(5).
5^(11 + 2) = 5^13 = 1220703125 = a(6).
2^(3 + 13) = 2^16 = 65536 = a(7).
2^(7 + 3) = 2^10 = 1024 = a(8), etc.
MAPLE
pflat2 := proc(nmax) local a, ifs, n, p, c ; a := [0, 1] ; for n from 2 to nmax do ifs := ifactors(n)[2] ; for p in ifs do a := [op(a), op(1, p)] ; if op(2, p) > 1 then a := [op(a), op(2, p)] ; fi; od: od: a ; end: pL := pflat2(120) : for n from 1 to nops(pL)-4 by 3 do printf("%d, ", op(n, pL)^(op(n+1, pL)+op(n+2, pL)) ) ; od: # R. J. Mathar, Nov 06 2008
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 01 2008
EXTENSIONS
Extended by R. J. Mathar, Nov 06 2008
STATUS
approved