A115896 -id:A115896 - cp's OEIS frontend

A115895 Numbers k such that k + sigma(k) is a palindrome.

1, 2, 3, 4, 5, 9, 34, 64, 81, 128, 141, 148, 151, 161, 162, 170, 181, 191, 196, 198, 219, 236, 249, 256, 257, 260, 277, 282, 297, 315, 322, 326, 327, 334, 346, 353, 355, 358, 373, 375, 377, 383, 387, 415, 473, 479, 499, 714, 793, 1225, 1316, 1420, 1517, 1593

Offset: 1

Giovanni Resta, Feb 06 2006

			128 + sigma(128) = 128 + 255 = 383.

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A115890, A115896, A115897.

Select[Range[1600],PalindromeQ[#+DivisorSigma[1,#]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 29 2017 *)

A115897 Numbers k such that sigma(k) + phi(k) is a palindrome.

Original entry on oeis.org

1, 2, 3, 4, 10, 11, 21, 49, 92, 101, 115, 131, 145, 186, 200, 201, 206, 207, 221, 226, 227, 240, 272, 302, 310, 313, 327, 342, 344, 370, 374, 388, 403, 406, 409, 413, 419, 425, 439, 449, 880, 948, 1015, 1055, 1132, 1165, 1385, 1443, 1680, 1755, 1785

Offset: 1

Giovanni Resta, Feb 06 2006

			sigma(1055) + phi(1055) = 1272 + 840 = 2112.

Michael De Vlieger, Table of n, a(n) for n = 1..5000

Cf. A115895, A115896.

Select[Range@ 1800, Reverse@ # == # &@ IntegerDigits[DivisorSigma[1, #] + EulerPhi@ #] &] (* Michael De Vlieger, Jul 22 2016 *)
Select[Range[2000],PalindromeQ[DivisorSigma[1,#]+EulerPhi[#]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 29 2020 *)

ispal(n)=n=digits(n); Vecrev(n)==n
is(n,f=factor(n))=ispal(sigma(f)+eulerphi(f)) \\ Charles R Greathouse IV, Jul 22 2016

A115899 Numbers k such that phi(k) + prime(k) is a palindrome.

Original entry on oeis.org

1, 2, 3, 4, 10, 15, 27, 30, 38, 39, 61, 62, 63, 64, 70, 72, 87, 96, 109, 123, 126, 137, 148, 153, 156, 202, 269, 286, 508, 716, 889, 1019, 1037, 1082, 1142, 1162, 1179, 1199, 1267, 1312, 1391, 1399, 1405, 1448, 1491, 1672, 1705, 1744, 1909, 1980

Offset: 1

Giovanni Resta, Feb 06 2006

			phi(1448) + prime(1448) = 720 + 12101 = 12821.

Cf. A115896, A115898.

Select[Range[2000],PalindromeQ[EulerPhi[#]+Prime[#]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 30 2018 *)

A115900 Numbers k such that k + sigma(k) and k + phi(k) are palindromes.

Original entry on oeis.org

1, 2, 3, 4, 5, 219, 322, 375, 22248, 32065, 47827, 1406744, 2144055, 2991368, 3626587, 4909369, 172133971, 177457001, 328030055, 3128669654, 8345867631, 19649249526, 45179367929, 47228405729, 48534773039, 49583585599, 2127577449846, 2191781701563, 3972961263797

Offset: 1

Giovanni Resta, Feb 06 2006

Intersection of A115895 and A115896.
a(27) > 10^11. 3972961263797 is also a term. - Donovan Johnson, May 31 2013
a(30) > 10^13. - Giovanni Resta, Jun 05 2013

			4909369 + sigma(4909369) = 9823289 and 4909369 + phi(4909369) = 9814189.

Cf. A115895, A115896.

a(17)-a(26) from Donovan Johnson, Oct 05 2010

a(27)-a(29) from Giovanni Resta, Jun 05 2013

cp's OEIS Frontend

A115895 Numbers k such that k + sigma(k) is a palindrome.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A115897 Numbers k such that sigma(k) + phi(k) is a palindrome.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A115899 Numbers k such that phi(k) + prime(k) is a palindrome.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A115900 Numbers k such that k + sigma(k) and k + phi(k) are palindromes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Extensions