cp's OEIS Frontend

A338235 Numbers k such that k + the sum of the 4th powers of the decimal digits of k is a square.

%I A338235 #27 Feb 01 2021 11:49:05
%S A338235 20,47,104,113,228,255,333,544,632,743,1054,1122,1518,1762,1901,2071,
%T A338235 3617,4317,4432,4456,4513,4557,4727,4927,5000,5058,5080,5173,5473,
%U A338235 5847,6047,6767,6832,7247,7408,7453,7487,7518,7921,7997,8127,8958,9208,9487,10917
%N A338235 Numbers k such that k + the sum of the 4th powers of the decimal digits of k is a square.
%e A338235 20 is a member since 2^4 + 0^4 + 20 = 6^2,
%e A338235 47 is a member since 4^4 + 7^4 + 47 = 52^2,
%e A338235 104 is a member since 1^4 + 0^4 + 4^4 = 104 = 19^2,
%e A338235 113 is a member since 1^4 + 1^4 + 3^4 + 113 = 14^2.
%p A338235 filter:= proc(n) local L,k;
%p A338235   issqr(n + add(t^4, t=convert(n,base,10)))
%p A338235 end proc:
%p A338235 select(filter, [$1..20000]); # _Robert Israel_, Jan 30 2021
%Y A338235 Cf. A055013, A329179, A329386.
%K A338235 base,nonn
%O A338235 1,1
%A A338235 _Will Gosnell_, Jan 30 2021