OFFSET
1,1
COMMENTS
Subsequence of the numbers k in A046349 such that A262049(k) is in A002113. - R. J. Mathar, Sep 09 2015
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
3030 = 2 * 3 * 5 * 101 -> 2 + 3 + 5 + 101 = 111 and 111 is a palindrome.
MAPLE
isA046355 := proc(n)
local sofpp ;
if isA046349(n) then
sofpp := A262049(n) ;
isA002113(sofpp) ;
else
false;
end if;
end proc:
for n from 2 to 400 do
if isA046355(n) then
printf("%d, ", n);
end if;
end do: # R. J. Mathar, Sep 09 2015
MATHEMATICA
palQ[n_] := Reverse[x=IntegerDigits[n]] == x; Select[Range[4, 3100], !PrimeQ[#] && And@@palQ/@Join[{Total[Times@@@(x=FactorInteger[#])]}, First/@x]&] (* Jayanta Basu, Jun 05 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved