1,1

This is to A035133 as 4th powers are to cubes. To make an analogy between analogies, the preceding sentence is to "A130873 is to 4th powers as A120398 is to cubes" as palindromes are to sums of two distinct prime powers.

A002113 INTERSECTION A046101.

a(10) = 14641 = 11^4 (the smallest odd value in this sequence).

a(11) = 21312 = 2^6 * 3^2 * 37.

isA046101 := proc(n) local ifs, f ; ifs := ifactors(n)[2] ; for f in ifs do if op(2, f) >= 4 then RETURN(true) ; fi ; od: RETURN(false) ; end: isA002113 := proc(n) local digs, i ; digs := convert(n, base, 10) ; for i from 1 to nops(digs) do if op(i, digs) <> op(-i, digs) then RETURN(false) ; fi ; od: RETURN(true) ; end: isA133514 := proc(n) isA046101(n) and isA002113(n) ; end: for n from 1 to 100000 do if isA133514(n) then printf("%d, ", n) ; fi ; od: - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 12 2008

a = {}; For[n = 2, n < 100000, n++, If[FromDigits[Reverse[IntegerDigits[n]]] == n, b = 0; For[l = 1, l < Length[FactorInteger[n]] + 1, l++, If[FactorInteger[n][[l, 2]] > 3, b = 1]]; If[b == 1, AppendTo[a, n]]]]; a - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Dec 26 2007

Cf. A002113, A046101.

Sequence in context: A005933 A112820 A062906 this_sequence A141546 A000517 A023907

Adjacent sequences: A133511 A133512 A133513 this_sequence A133515 A133516 A133517

base,nonn

Jonathan Vos Post (jvospost3(AT)gmail.com), Nov 30 2007

More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Dec 26 2007

More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 12 2008