A123211 Terms in A006512 containing the digit "6" at least once, such that changing every "6" to a "9" and vice versa yields a larger term in A006512.

1063, 3361, 7561, 10861, 14563, 16141, 16693, 26881, 32611, 36343, 55633, 61153, 62971, 62983, 64153, 68713, 70621, 76963, 100363, 106453, 115603, 116101, 131641, 136993, 146521, 152641, 155863, 160711, 161341, 161971, 166741, 167341, 167863

Offset: 1

Author

Pierre CAMI, Oct 05 2006

Keywords

• base
• nonn
• less

Comments

1063 is in A006512 and so is 1093, obviously 1093 > 1063, therefore 1063 is in the sequence.

If the definition of the permitted terms included any term in A006512, instead of a larger term, the sequence would also contain 19963, 79693, 92671, 92683, and 139663. - James C. McMahon, Nov 17 2024

Crossrefs

Cf. A006512.

Programs

Mathematica

gtp=Select[Prime[Range[PrimePi[400000]]],PrimeQ[#-2]&];Select[gtp,MemberQ[IntegerDigits[#],6]&&MemberQ[gtp,r=FromDigits[IntegerDigits[#]/.{6->9,9->6}]]&&r>#&] (* James C. McMahon, Nov 17 2024 *)

Extensions

Edited, corrected and extended by Pierre CAMI and Stefan Steinerberger, Aug 14 2007