cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A162705 Numbers that are the sum of two reversed consecutive primes in more than one way.

This page as a plain text file.
%I A162705 #18 Feb 27 2019 03:48:44
%S A162705 582,1026,1032,1038,1092,1122,1128,1134,1152,1296,1644,1716,4152,4344,
%T A162705 4602,4932,5068,5562,5808,8706,8862,8988,9012,9036,9066,9264,9726,
%U A162705 10110,10308,10326,10342,10398,10638,10698,10764,10794,10806,10866,10912,10944,10998
%N A162705 Numbers that are the sum of two reversed consecutive primes in more than one way.
%C A162705 Subsequence of A162704. - _R. J. Mathar_, Jul 13 2009
%H A162705 Sean A. Irvine, <a href="/A162705/b162705.txt">Table of n, a(n) for n = 1..115</a>
%e A162705 582 = R(191) + R(193) = 191 + 391 and R(683) + R(691) = 386 + 196.
%e A162705 1032 = R(113) + R(127) = 311 + 721 = R(613) + R(617) = 316 + 716.
%p A162705 read("transforms") ; A055642 := proc(n) max(1, ilog10(n)+1) ; end:
%p A162705 A004087 := proc(n) option remember; digrev(ithprime(n)) ; end:
%p A162705 isA162705 := proc(n) c := 0 ; for i from 1 do p := ithprime(i) ; if A055642(p) > A055642(n) then break; fi; if A004087(i)+A004087(i+1) = n then c := c+1; fi; od: RETURN(c > 1); end:
%p A162705 for n from 1 to 10000 do if isA162705(n) then printf("%d,",n) ; fi; od: # _R. J. Mathar_, Jul 13 2009
%t A162705 Sort[Transpose[Select[Tally[FromDigits[Reverse[IntegerDigits[#[[1]]]]] + FromDigits[Reverse[IntegerDigits[#[[2]]]]]&/@Partition[Prime[Range[ 2000]],2,1]],Last[#]>1&]][[1]]] (* _Harvey P. Dale_, Nov 14 2012 *)
%Y A162705 Cf. A004087, A162704.
%K A162705 nonn,base
%O A162705 1,1
%A A162705 _Claudio Meller_, Jul 11 2009
%E A162705 Keyword:base plus more terms from _R. J. Mathar_, Jul 13 2009
%E A162705 Typo in first example corrected by _R. J. Mathar_, Jul 22 2009
%E A162705 More terms from _Sean A. Irvine_, Nov 14 2010